Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
не получается у меня подключить дллку... руки крюки - моска нет...Vizit0r wrote:http://stealth.od.ua/forum/viewtopic.php?f=6&t=1042
Code: Select all
library helloworld;
uses
System.SysUtils,
Vcl.Dialogs,
System.Classes,
stealth_script in '..\..\stealth_script.pas';
{$R *.res}
procedure OuterCall;//(str : String);
begin
//ShowMessage('Hello World');
Script.AddToSystemJournal('Hello world!');
end;
begin
//OuterCall;
end.
Code: Select all
Program New;
procedure TestDll; external 'OuterCall@d:\helloworld.dll stdcall';
begin
//Body of Script
TestDll;
end.
drabadan wrote:не получается у меня подключить дллку... руки крюки - моска нет...Vizit0r wrote:http://stealth.od.ua/forum/viewtopic.php?f=6&t=1042
Delphi код моей библиотеки:в скрипте:Code: Select all
library helloworld; uses System.SysUtils, Vcl.Dialogs, System.Classes, stealth_script in '..\..\stealth_script.pas'; {$R *.res} procedure OuterCall;//(str : String); begin //ShowMessage('Hello World'); Script.AddToSystemJournal('Hello world!'); end; begin //OuterCall; end.что я делаю не так??Code: Select all
Program New; procedure TestDll; external 'OuterCall@d:\helloworld.dll stdcall'; begin //Body of Script TestDll; end.
Code: Select all
....
exports
OuterCall;
begin
//OuterCall;
end.не всегда знаешь о чем гугл спрашивать... Чаще всего когда хочешь узнать как коробок спичек донести из А в B гугл дает ответ про космолеты которые бороздят просторы вселенных, где никаких коробков уже 3 тысячи лет никто не встречал...Vizit0r wrote: Гугл много еще чего интересного расскажет, например по словам "Dll на Delphi" "String в Delphi Dll" и т.д.
Code: Select all
//Delphi code:
procedure OuterCall; stdcall;
begin
//ShowMessage('Hello World');
Script.AddToSystemJournal('Hello world!');
end;
exports
OuterCall;
Code: Select all
//Stealth code:
Program New;
procedure TestDll; external 'OuterCall@d:\helloworld.dll stdcall';
begin
TestDll;
end.
Vizit0r wrote: ты бы сначала пробовал из дельфийской программы вызвать эту длл функцию, а потом уже из стелса.
погугли "как правильно гуглить"не всегда знаешь о чем гугл спрашивать... Чаще всего когда хочешь узнать как коробок спичек донести из А в B гугл дает ответ про космолеты которые бороздят просторы вселенных, где никаких коробков уже 3 тысячи лет никто не встречал...
Code: Select all
Program New;
procedure TestDll(Msg : PChar); external 'OuterCall@d:\Stealth\my\Project7.dll stdcall';
begin
TestDll(('1111'));
end.
Code: Select all
library Project7;
uses
System.SysUtils,
VCL.Dialogs,
System.Classes;
procedure OuterCall(Msg : PAnsiChar); stdcall;
begin
ShowMessage(Msg);
end;
exports
OuterCall;
begin
end.