1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59
|
procedure TForm1.Button1Click(Sender: TObject);
var
buf : string;
DataOut : TMemoryStream;
DataIn : TFileStream;
begin
try
DataOut := TMemoryStream.Create;
Buf := 'LesData';
if Length(Buf) > 0 then
DataOut.Write(Buf[1], Length(Buf));
DataOut.Seek(0, soBeginning);
HttpCli1.SendStream := DataOut;
HttpCli1.ProxyPort := '80';
HttpCli1.URL := 'LeSite';
HttpCli1.SendStream.Write('idmc=matrix', 256);
HttpCli1.SendStream.Position := 0;
// HttpCli1.Cookie :=
try
HttpCli1.Post;
except end;
finally
HttpCli1.RcvdStream.Position := 0;
Memo1.Lines.LoadFromStream(HttpCli1.RcvdStream);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
HttpCli1 := THttpCli.Create(self);
HttpCli1.SendStream := TMemoryStream.Create;
HttpCli1.RcvdStream := TMemoryStream.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
If (HttpCli1.SendStream <> Nil) Then HttpCli1.SendStream.Free;
If (HttpCli1.RcvdStream <> Nil) Then HttpCli1.RcvdStream.Free;
If (HttpCli1 <> Nil) Then FreeAndNil(HttpCli1);
end;
procedure TForm1.Button2Click(Sender: TObject);
var
Flags, TargetFrameName, PostData, Headers: OleVariant;
sHTML: String;
begin
sHTML := memo1.Text;
MyWebBrowser.Navigate('about:' + sHTML, Flags, TargetFrameName, PostData, Headers);
end; |
Partager