Динамическое создание/удаление объектов в DLL. Проблемы. [D6, Win2k]
SB.John © (2002-04-29 08:06:00)
Пишу простенькую DLL для отправки почтовых сообщений. Код
примерно такой:
Var Nu:TNMSMTP;
Function SendMail(Address:PChar; Msg:TStringList):boolean;
Var q:TNotifyEventl
begin
Nu:=TNMSMTP.Create(nil);
@q:=@NFailure; Nu.OnFailure := q;
@q:=@NSuccess; Nu.OnSuccess := q;
@q:=@NSendStart; Nu.OnSendStart := q;
....
Nu.Free();
end;
Так вот на строке Nu.Free(); Периодически (примерно раз через
3) выскакивает RunTime Error. Тот же самый код оформленный как
обычный exe работает безо всяких проблем. Вызывается функция из DLL
слеудющим образом:
procedure TForm1.Button1Click(Sender: TObject);
Var
SendMailo:function(Address:PChar;Msg:TStringList):boolean;stdcall;
H:longword;
S:TStringList;
begin
h:=LoadLibrary("sendmail");
SendMailo := GetProcAddress(h,"SendMailo");
S:=TStringList(Memo1.Lines);
SendMailo("pea@chaz.ru",S);
FreeLibrary(h);
end;
SB.John (2002-04-29 09:06:00) [1]
В общем сам уже разобрался. Дело было в TStringList"e во
входных параметрах.
Наверх 
ЧАТ |
Орешник |
|
