VPF::Не раборает dll - Форум программистов

Volkogriz

Дата 7.1.2013, 01:32 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

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

Код


library SysVideo;

uses
    Windows,
  Classes,ShareMem;

function PlayJpg(amodule:THandle; Resjpg:WideString; jpg:PAnsiChar):TStream; stdcall;
var
  H:THandle;
  ResName: WideString;
   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;

Ошибка так:
user posted image

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

Это сообщение отредактировал(а) Volkogriz - 7.1.2013, 01:33

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

bems

Дата 7.1.2013, 07:09 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

не хватает stdcall в external-объявлении
ну и нельзя возвращать классы из длл, хоть очень часто и будет казаться что всё работает

--------------------

Обижено школьников: 8

Poseidon

Дата 14.1.2013, 15:46 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Volkogriz @ 7.1.2013, 01:32

)

Ошибка так:

Она вот так вот перевернуто у тебя и появляется? smile

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Volkogriz

Дата 19.1.2013, 23:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 216
Регистрация: 16.9.2007

Репутация: 1
Всего: 1

)Нет1)

--------------------

("`-''-/").___..--''"`-._`6_6 ) ,,,`-. ( ''' ).` "_-.__.')(_Y_.)' ._''' ) `._ `. ``-.__'.-'_..`--'_..-_/'''/--'_.' ,'(il).-'''''(li).' ((!.-'

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »