Отправка строки PHP скрипту

Подскажите пожалуйста люди добрые, чем пользоваться чтобы написать программу, которая могла бы отправить PHP скрипту на сервере строку из TMemo, а затем
прочитать сгенерируемый им ответ и мывести его в тот-же TMemo?

NMHTTP

Помогите пожалуйста с примером если можно.

Сонг - пожалуйста не руби эти коды (просьба)
Пример не рабочий = почему не знаю.





unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Psock, NMHttp, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
NMHTTP1: TNMHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
post_data,post_to,Buffer:string;
f:textfile;

begin
NMHTTP1.HeaderInfo.Cookie:=
'visitor=330340878';

NMHTTP1.HeaderInfo.LocalMailAddress:=
'Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)';
NMHTTP1.HeaderInfo.LocalProgram:=
'';
NMHTTP1.HeaderInfo.Referer:=
//'http://xbase.ru/guestbook/index.php?id=260na664yra7zy3kmphj8d27do6m2st7&rnd=2088&login=pigas&design=0&m=0';
'';


//cation: 'http://xbase.ru/guestbook/Location: error.php?id=260na664yra7zy3kmphj8d27do6m2st7&rnd=9846
NMHTTP1.Host:='xbase.ru';


//NMHTTP1.Proxy:=
//'localhost';
//NMHTTP1.ProxyPort:=8080;
NMHTTP1.InputFileMode:=
false;
NMHTTP1.OutputFileMode:=
true;
//Buffer:='NMHTTP1.SendBuffer';
//NMHTTP1.SendBuffer(pchar(Buffer),length(Buffer));

NMHTTP1.TimeOut:=0;
assignfile(f,'post.txt');
rewrite(f);

writeln(f,'submit=%C4%EE%E1%E0%E2%E8%F2%FC');
writeln(f,'screen=800x600x16');
writeln(f,'timezone=4');
writeln(f,'form%5Bname%5D=ima');
writeln(f,'form%5Bemail%5D=mila@net.ru');
writeln(f,'form%5Burl%5D=http_no');
writeln(f,'message=messtextdelphi');
writeln(f,'form%5Brnd%5D=577291402');

writeln(f);
closefile(f);

post_data:='post.txt';




NMHTTP1.Host:='Local.ptron';
NMHTTP1.HeaderInfo.Referer:=post_to;
NMHTTP1.Get('http://Local.ptron/ViewSrc.css');





post_to:='http://xbase.ru/guestbook/index.php?id=260na664yra7zy3kmphj8d27do6m2st7&rnd=1879&login=pigas&design=0&m=0';
NMHTTP1.Post(post_to,post_data);
memo1.Lines.Clear;
memo1.Lines.Add(NMHTTP1.Header);
memo2.Lines.Clear;
memo2.Lines.Add(NMHTTP1.Body);


NMHTTP1.Host:='Local.ptron';
NMHTTP1.HeaderInfo.Referer:=post_to;
NMHTTP1.Get('http://Local.ptron/ViewSrc.css');



end;

end.

А чего ты тегами не ползуешься? Читабельней бы был код.

2 Song

Как это ?

Сообщение отредактировано: Clane - 08.11.03, 12:04

2Du-Xa Папка дельфи\Demos\FastNet\Http

2pigas слишком заумный код что тебе надо сделать, мессагу отправить ?

to P.O.D

Это типо запись в гостевую книгу добавить .
Забил я на это дело .
По Smtp просче и работает (поговорил с админом = а то рубил все почвые серверы ) .