forester

unit main;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Sock, ExtCtrls;

type
TFrm_Main = class(TForm)
Edit_ProxyPort: TEdit;
GroupBox1 : TGroupBox;
Label1 : TLabel;
Edit_Port : TEdit;
Label2 : TLabel;
Lbl_Threads : TLabel;
Label3 : TLabel;
Lbl_HeapFree: TLabel;
Sock : TSock;
Timer1 : TTimer;
Btn_Start : TButton;
GroupBox2 : TGroupBox;
lStat2 : TPanel;
mIPLog : TMemo;
lStat : TLabel;
Label4 : TLabel;
Button1 : TButton;

procedure Btn_StartClick(Sender: TObject);
procedure SockAutoAccept(Sender: TObject; NewSock: TSock);
procedure SockInfo(sender: TObject; SocketInfo: TSocketInfo; Msg: String);
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
public
Threadcount : Integer;
end;

var
Frm_Main : TFrm_Main;

implementation

{$R *.DFM}

procedure TFrm_Main.Btn_StartClick(Sender: TObject);
begin
If Btn_Start.Caption = 'Start' Then
Begin
Sock.PortName := Edit_Port.Text;
Sock.StartListen;
Btn_Start.Caption :='Stop'
Label1.Enabled := False;
Edit_Port.Enabled := False;
End
Else
Begin
Sock.StopListen;
Btn_Start.Caption := 'Start'
Label1.Enabled := True;
Edit_Port.Enabled := True;
End;
end;

procedure TFrm_Main.SockAutoAccept(Sender: TObject; NewSock: TSock);
Var
Content : String;
Temp : String;
CSock : TSock;
NSock : TSock;
SL : String;
HN,PT : String;
Rm : String;
Pl : Integer;
begin
Inc(ThreadCount);
Lbl_Threads.Caption := IntToStr(ThreadCount);
CSock := TSock.Create(Self);
Nsock := TSock.Create(Self);
Try
Try
Content := ''
SL := ''
Rm := ''
Repeat
Temp := NewSock.Text;
If Temp <> '' Then
Begin
// Incoming Data
Content := Content + Temp;
Temp := ''
If (SL = '') And (Pos('HTTP/', Content) > 0) Then
Begin
SL := Copy(Content, 1, Pos('HTTP/', Content)+1);
Delete(Content, 1, Length(SL));
// Parse SL To Connect To The Server
Rm := Copy(Sl, 1, Pos('http://', Sl)-1);
Delete(Sl, 1, Pos('http://', Sl)+6); // Don't Need http://
PT := '80'
Pl := Pos(':', Sl);
If (Pl > 0) And (Pl < Pos('/', Sl)) Then
Begin
// There's A Port Number
HN := Copy(Sl, 1, Pos(':', Sl)-1);
Delete(Sl, 1, Pos(':', Sl));
PT := Copy(Sl, 1, Pos('/', Sl)-1);
Delete(Sl, 1, Pos('/', Sl)-1);
End
Else
Begin
HN := Copy(Sl, 1, Pos('/', Sl)-1);
Delete(Sl, 1, Pos('/', Sl)-1);
End;

mIPLog.Lines.Add('Request: '+HN

Вернуться к обсуждению:
Задача по ServerSocket & ClientSocket Delphi