Automatiser la saisie du password et username et gérer les cookies
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. :cry:
Voici mon code :
Code:
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.
