Скачать: CL | DM;

проблема при работе с 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]

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

---

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

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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c