TIDTCPServer(+SSL Intercept) внутри DLLки [D6, WinXP]
ildarkh © (2007-01-29 17:42:00)
Всем привет. Есть у меня такая DLL-ка
library UreadMessagesCls;
uses XMLDoc, IdTCPServer, IdTCPClient, Dialogs, SysUtils;
procedure ExQuery(XML: TXMLDocument; Client: TIdTCPClient;
Server: TIdTCPServerConnection);stdcall;
var
msg: String;
begin
try
Client.Connect;
except
Client.Disconnect;
Client.Connect;
end;
try
Client.Writeln('<?xml
version="1.0"?><query type="2"/>'+#0);
Client.ReadLn;
Client.Disconnect;
except on e: Exception do
msg := e.Message;
end;
end;
exports ExQuery;
end.
Она подключается динамически, в ее функцию передается, в
частности, TidTCPClient-клиент, который соединяется с сервером с
помощью SSL (TIdConnectionInterceptOpenSSL). На сервер периодически
пихаются сообщения. На третьей отправке происходит непонятный вылет
- Access violation...., окошко дебаггера в Делфи, сервер пишет
connection refused. Если же эту функцию ExQuery пихнуть прямо в
тело основной проги, то все ОК. Так же все хорошо,если закоментить
строку в DLL-ке
Client.ReadLn;
Однако в данном случае я не могу принимать ответы сервера.
Плюс для меня остается непонятным один момент, то, что клиент
не хочет соединяться первый раз. Против этого у меня написано там
же
try
Client.Connect;
except
Client.Disconnect;
Client.Connect;
end;
Работает, но смотрится некрасиво как-то.
umbra (2007-01-29 19:10:00) [1]
> library UreadMessagesCls;
>
> uses XMLDoc, IdTCPServer, IdTCPClient, Dialogs,
SysUtils;
>
>
а где же
ShareMem?
Important note about DLL memory management: ShareMem must be the
first unit in your library's USES clause AND your
project's (select
Project-View Source) USES clause if your DLL exports
any procedures or
functions that pass strings as parameters or function
results. This
applies to all strings passed to and from your
DLL--even those that
are nested in records and classes.
Наверх 
ЧАТ |
Орешник |
|
