Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: 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 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.043 c
15-1177422667
@!!ex
2007-04-24 17:51
2007.05.27
Client Rect


15-1177314606
cj
2007-04-23 11:50
2007.05.27
NTFS-DOS


15-1177432387
ArtemESC
2007-04-24 20:33
2007.05.27
Photoshop


3-1173306371
databaser
2007-03-08 01:26
2007.05.27
Сравнение запросов


2-1178433546
Doom-2
2007-05-06 10:39
2007.05.27
новое подключение Flash или ZIV