Компилируеца но не работает

[Editor]

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ScktComp, StdCtrls;
Const 
  WebServer = 'host.ru';
  WebPort   = 80; 
  PostAddr  = 'index.cgi';
    HTTP_Data = 
    'Content-Type: application/x-www-form-urlencoded'#10+ 
    'User-Agent: Delphi/5.0 ()'#10+
    'Host: host.ru'#10+
    'Connection: Keep-Alive'#10;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ClientSocket1: TClientSocket;
    procedure ClientSocket1Write(Sender: TObject; Socket: TCustomWinSocket);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);

    procedure ClientSocket1Disconnect(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    HTTP_POST   : String;
    FContent    : String; 
    FResult     : String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function HTTPTran(St : String) : String; 
var i : Integer;
begin 
  Result:=''; 
  for i:=1 to length(St) do 
    if St[i] in ['a'..'z','A'..'Z','0','1'..'9'] then 
      Result:=Result+St[i] 
    else if St[i]=' ' then 
      Result:=Result+'+' 
    else 
      Result:=Result+'%'+IntToHex(Byte(St[i]),2); 
end; 
procedure TForm1.ClientSocket1Write(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText(HTTP_POST+FContent);
end;

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
FResult:=FResult+Socket.ReceiveText;
end;


procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ShowMessage(''+ FResult +'')
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
FResult:='';
 FContent:= 
   'name='+    HTTPTran('man')            +'&'+
   'B1=Submit'+
   #10;
ClientSocket1.Host := WebServer; 
  ClientSocket1.Port := WebPort; 
  HTTP_POST := 'POST '+PostAddr+' HTTP/1.0'#10; 
 HTTP_Post := HTTP_Post + HTTP_Data; 
 ClientSocket1.Open;
end;



end. 


всё прекрастно компилируеца но не работает в мисейже какието крастные поля тока

[Stilet]

А по русски?

[Editor]

вобщем почему не работает код?)))

[mihali4]

Сообщение от Editor

вобщем почему не работает код?)))

Этот вопрос нужно задавать автору кода.
Посмотрите еще раз в том месте, откуда вы его "содрали" - там должен быть указан автор шедевра.

[Editor]

Код у всех работает у меня тока "как не странно" не работает.....В чём может быть причина?

Socket.SendText('GET '+Webpage+' HTTP/1.1 \n\nHost: host.ru\nUser-Agent: Browser\nAccept: */*'#10#10);
я пральна заголовки выставляю?