Salut.

Voici mon probléme. Je souahite automatisé la saisi du password et le username et afficher la page qui suit. il me faut aussi gérer les cookies. je suis un peu perdu. si vous avez une idée. PLEASE dit le moi.

j'ai essayé avec le code qui suit. mais y'a une erreur d'affichage.

Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
donc a partir du code source HTML j'aimerai l'affichez. sachant qu'il faut gere les cookies.


Prob : Gerer les cookies et affichez cette page.
Merci d'avance.