Не раборает dll

[Volkogriz]

Доброе время суток!
У меня длл-ка не выходит не как(
Все ошибки вылетают, и не могу понять в чём тут дело.

library SysVideo;

uses
    Windows,
  Classes;

function PlayJpg(amodule:THandle; Resjpg:String; jpg:PAnsiChar):TStream; stdcall;
var
  H:THandle;
  ResName: string;
   ResType: PAnsiChar;
  imageStream:TStream;
  imageStr:TResourceStream;
begin
ResName:= Resjpg;
ResType:= jpg;
H:=LoadLibrary(PChar(amodule));
PlayJpg.Create;
imageStr:= TResourceStream.Create(H,ResName,ResType);
imageStr.SaveToStream(imageStream.Create);
PlayJpg:= imageStream;
end;

exports PlayJpg;
begin
   end.

Вызываю так:

implementation

{$R *.dfm}
function  PlayJpg(amodule:THandle; Resjpg:String; jpg:PAnsiChar):TStream;
external 'SysVideo.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
jpeg:TJPEGImage;
begin
amodule:=LoadLibrary(PChar(extractfilepath(Application.ExeName)+ 'SystemFacility.dll'));
jpeg:= TJPEGImage.Create;
jpeg.LoadFromStream(PlayJpg(amodule,'ict','jpeg'));
Image1.Picture.Assign(jpeg);
FreeLibrary(Handle);
end;

Ошибка так:

Помогите пожалуйста разобраться!
С уважением,
Volkogriz!

[phomm]

Вы когда библиотеку создали - там большой такой комментарий не читали ?? Он гласит, что для использования строк string для вызовов подпрограмм между программой и библиотекой надо прописать модуль ShareMem первым в проект приложения и библиотеки.

[Человек_Борща]

phomm, да не нужно оно. ТС, замени все строки на WideString.

[Volkogriz]

не выходит(
ошибка опять(
exception e out of memory in module
Чего не так то (
С уважением,
Volkogriz!

[Stilet]

Если в ДЛЛ используется типа String то нужно подключать модуль ShareMem
Я бы лично строки передавал через TStringStream или TStringList. Надежнее.

[Volkogriz]

Не пашет всё туже ошибку выдаёт(

[Vapaamies]

Внимание, правильный ответ: забыт stdcall при импорте. Всем двойки! Несите дневники.

[phomm]

Vapaamies, когда в коде при построчном прочтении видишь явную ошибку - то указываешь её и дальше портянку не смотришь. Тем более, что скрин говорящий и указывает на ошибку в неверном обращении к памяти, что бывает как раз при работе со строками.
А stdcall - он конечно тут влияет, но в общем случае, это более тонкая ошибка, ведь аргументов может и не быть, или неважен их порядок или способ передачи, а ошибка со строками - она на поверхности, и пока она гарантировано не устранена(крики "не работает" не есть подтверждение что ошибку исправили верно, был бы код или сам проект - тогда да), никто и не копал поэтому глубже.

Надеюсь, мне простят лёгкий оффтоп.

[Vapaamies]

Сообщение от phomm

Vapaamies, когда в коде при построчном прочтении видишь явную ошибку - то указываешь её и дальше портянку не смотришь.

А вот я когда смотрю на код, то представляю себе его ассемблерный подстрочник, хотя бы в общих чертах. И поскольку в данном случае передаваемые строки используются только на чтение, не вижу никаких причин, чтобы при соблюдении соглашения о вызовах код работал, даже несмотря на то, что с точки зрения архитектуры он небезопасен из-за неиспользования ShareMem, с чем я совершенно согласен.

Пусть теперь Volkogriz отпишется и нас рассудит. И ответит заодно, зачем он скриншот отзеркалил.

[Человек_Борща]

phomm, если не указан модификатор при импорте/экспорте из DLL, компилятор берет порядок слева-направо(pascal), а не справа-налево(stdcall).

только что создал DLL и проект, где в импорте/экспорте не указывал модификатор(вообще). Все работает, все вызывает.