1,593
社区成员
发帖
与我相关
我的任务
分享
unit MainFormUnit;
interface
uses
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.
写了个例子,自己看下吧。