delphi 动态创建TClientSocket后,
ClientSocket:= TClientSocket.Create(nil);
ClientSocket.OnRead := MySocketRead;
procedure MySocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
这里为什么收不到信息啊??
end;
连接也是正常的,server端也发送数据了,客户端这就是什么信息也没收到。
怎么能将我定义的事件与Clientsocket绑定在一起呢???
ClientSocket:= TClientSocket.Create(nil);
ClientSocket.OnRead := MySocketRead;
procedure MySocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
这里为什么收不到信息啊??
end;
连接也是正常的,server端也发送数据了,客户端这就是什么信息也没收到。
怎么能将我定义的事件与Clientsocket绑定在一起呢???
解决方案 »
- 定义了一个string全局变量,在字符串连接时出错
- 为什么我的数据写不进数据库?在线等待!
- 怎么样终止sleep函数?
- 请问如何访问本程序里webbrowser里javascript的函数? 谢谢
- Delphi6能否调用.net产生的数据集DataSet的XML
- 请问如何控制DBChart打印设置,打印预览,很急,谢谢
- (**websnap技术**)在没有经过session认证之前,想进入其它页面时会出现英文错误提示,我想在此出现提示之前转入密码输入框,该如何操作呢
- 请都各路大侠!!!只要有心帮忙我就散分!!
- 如何將一圖片文件存儲在數據庫(SQL SERVER)中?
- 我想用RegisterHotKey设置系统热键,但用THotKey控件来由用户自己定义要设置的热键,请问应该怎么办
- Delphi FileWrite函数
- Delphi如何让另一个程序隐藏
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ScktComp;type
TMainForm = class(TForm)
mmoLog: TMemo;
btnRequest: TButton;
edtUrl: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure btnRequestClick(Sender: TObject);
private
FClient: TClientSocket;
procedure OnRead(Sender: TObject; Socket: TCustomWinSocket);
procedure OnConnect(Sender: TObject; Socket: TCustomWinSocket);
public
{ Public declarations }
end;var
MainForm: TMainForm;implementation{$R *.dfm}procedure TMainForm.FormCreate(Sender: TObject);
begin
FClient := TClientSocket.Create(nil);
FClient.OnRead := OnRead;
FClient.OnConnect := OnConnect;
end;procedure TMainForm.FormDestroy(Sender: TObject);
begin
FClient.Free;
end;procedure TMainForm.OnRead(Sender: TObject; Socket: TCustomWinSocket);
begin
mmoLog.Lines.Add(Socket.ReceiveText);
end;procedure TMainForm.btnRequestClick(Sender: TObject);
begin
FClient.Host := edtUrl.Text;
FClient.Port := 80;
FClient.Open;
end;procedure TMainForm.OnConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText('GET / HTTP/1.1'#13#10'Host: ' + edtUrl.Text + #13#10#13#10);
end;end.
写了个例子,自己看下吧。
这个是EXE执行的。。如果动态执行。你就要构建 TObject 。不然在DLL中是不会响应的。也就是不会执行