Текущий архив: 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.066 c
