проблема при работе с DLL

← →
Невский (2007-04-24 16:23) [0]

Не вызываеться procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); после function Connect..... хотя просто в проэкте работает. Как можна или описать процедуру или ее вызвать?

library demo; uses SysUtils, Classes, ScktComp, Forms, ExtCtrls; {$R *.res} var ClientSocket1: TClientSocket; ServerSocket1: TServerSocket; Flag:boolean; Res:string; function Connect(Port,TimeOut:integer;Addr:PChar):integer; stdcall; Begin ClientSocket1:=TClientSocket.Create(nil); ClientSocket1.Port:=Port; ClientSocket1.Address:=Addr; ClientSocket1.Active:=true; end; procedure ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket); begin Application.MessageBox("Client","Connect",0); // Application.ProcessMessages; // if Socket.ReceiveText="OK" then // Flag:=true; end; exports Connect; begin end.

← →
umbra © (2007-04-24 16:25) [1]

> не вызываеться procedure ClientSocket1Connect(Sender: TObject;
> Socket: TCustomWinSocket);

а кто ее вызывает?

← →
Сергей М. © (2007-04-24 16:27) [2]

> просто в проэкте

А твой пример - это, очевидно, "сложно в проекте" ?

← →
Невский (2007-04-24 16:27) [3]

на ClientSocket1.OnConnect должна вызваться процедура ClientSocket1Connect, или нада евенты прописывать?

← →
umbra © (2007-04-24 16:30) [4]

> на ClientSocket1.OnConnect должна вызваться процедура ClientSocket1Connect

не должна. нада евенты прописывать :)

← →
Сергей М. © (2007-04-24 16:31) [5]

> Невский (24.04.07 16:27) [3]

> должна

Щас !

с чего бы это "должна", если она не назначена ?

> или

Именно "или".

Причем не "процедура", а процедурный метод объекта

← →
Невский (2007-04-24 16:31) [6]

Ясно, думал не нада будет :) Спасибо.

> думал не нада будет

думают те кто думают)

проблема при работе с DLL Найти похожие ветки