]]> Clane Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120680 Sat, 08 Nov 2003 11:13:19 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120680
Как это ? ]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120580 Sat, 08 Nov 2003 06:34:35 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120580 Song Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120568 Sat, 08 Nov 2003 05:35:06 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120568 Пример не рабочий = почему не знаю.





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.


]]> pigas Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120508 Fri, 07 Nov 2003 23:06:11 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120508

Помогите пожалуйста с примером если можно. ]]> Du-Xa Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120504 Fri, 07 Nov 2003 22:54:00 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120504 P.O.D Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120498 Fri, 07 Nov 2003 22:42:15 +0000 https://forum.sources.ru/index.php?showtopic=14209&view=findpost&p=120498 прочитать сгенерируемый им ответ и мывести его в тот-же TMemo? ]]> Du-Xa Delphi: Сетевое программирование