Invalid Pointer Operation при работе с Dll
Добавлено: 18 мар 2005, 08:24
Вот такое вот сообщение выдает когда я делаю следующее:
В самой dll:
В самой проге следующее:
После этой ошибки, она все же выдает результат в Edit1. Что не так???
В самой dll:
Код: Выделить всё
Function InfDisplayRes:String;
begin
InfDisplayRes:=IntToStr(Screen.Width)+'x'+IntToStr(Screen.Height);
end;
exports InfDisplayRes name 'InfDisplayRes';
Код: Выделить всё
...
private
{ Private declarations }
public
{ Public declarations }
end;
Function InfDisplayRes:String;external 'PrFunc.dll';
...
var
....
procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=InfDisplayRes;
end;