안녕하세요.
명시적 방법으로 dll을 호출하려고 합니다.
에러가 발생하거든요.
다른방법으로 하면 잘되는데...
dll을 불러들였다가 매핑을 해제하려고 합니다.
sample.dll은 다음과 같은 function 있습니다.
function aaa(data:pcahr):tstringlist;
unit main
..
type
Txxx=function(Data:Pchar):TStringList; stdcall;
..
..
procedure ..
var
aaa:TStringList;
hdllinst:hwnd;
sss:TLogin;
begin
hdllinst:=LoadLibrary('Net00000.Dll'); {명시적방법 load}
aaa:=Tstringlist.Create;
aaa.Clear;
@sss:=GetProcAddress(hdllinst,'aaa'); {aaa 함수 주소에 대한 포인터}
aaa:=sss('1234');
edit1.text:=aaa[0];
edit2.text:=aaa[1];
edit3.text:=aaa[2];
edit4.text:=aaa[3];
edit5.text:=aaa[4];}
freelibrary(a);
end;
sample.dll function에 '1234'를 보내고 tstringlist를 받을려고 합니다.
도와주세요.
좋은시간 되세요.
|