Нашёл код не поможете доработать его

[eldar]

var
LoginDialog: TLoginDialog;
Flags, TargetFrameName, PostData, Headers: OleVariant;
S: String;

...
with TLoginDialog.Create(Application) do
try
if ShowModal = mrOk then
begin
S := Format(‘UserName=%s&Password=%s’, _
[Edit1.Text, Edit2.Text]);
PostData := VarArrayCreate([1, _
Length(S) + 1], varByte);
System.Move(S[1], VarArrayLock(PostData)^, _
Length(S) + 1);
VarArrayUnlock(PostData);
Headers :=
‘Content-Type: application/x-www-form-urlencoded’#10#13;
WebBrowser1.Navigate(‘http://intranetserver/secretpage’, Flags,
TargetFrameName, PostData, Headers);
end;
finally
Free;
end;

[eldar]

Да понял ступил ну попробуем так
на форму кидаеться кнопка и WebBrowser1
и ещё edit1 и edit2
Когда пишешь edit1 и edit2 логин и пароль
и нажимаешь кнопку то должен отправиться
post запрос

[Stilet]

eldar

Доработать до чего? Хотя в принципе для начала убери подчерки в концах некоторых строк.

[eldar]

Да нет в коде я разобрался
у меня просто проблема была с cookie использовал indy 9
но почему то idCookieManager не принимал и не передовал cookie Почему незнаю
ну тогда стал искать другой способ и нашёл вот этот:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var
Flags, TargetFrameName, PostData, Headers: OleVariant;

s:string;


begin


S := Format('login=fdser&password=wq1234 &button.x=27&button.y=8',
[Edit1.Text, Edit2.Text]);
PostData := VarArrayCreate([1,
Length(S) + 1], varByte);
System.Move(S[1], VarArrayLock(PostData)^,
Length(S) + 1);
VarArrayUnlock(PostData);

WebBrowser1.Navigate('http://www.ipweb.ru/cgi-bin/auth.cgi',Flags,
TargetFrameName, PostData, Headers);
end;




end.

там WebBrowser1 сам передаёт кукисы

[jone]

var formlevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.form s.Length-1 do begin
form:=WebBrowser1.OleObject.Documen t.forms.Item(f).elements;
for i:=0 to form.Length-1 do
if form.item(i).name='username' then // посматри в исходнике страницы может не username а просто name или login
form.item(i).value:='Логин'
else
if form.item(i).name='password' then // password обычно так пишится бывает pass
form.item(i).value:='пороль';
Button9.Click;
end;
end;


procedure TForm1.Button9Click(Sender: TObject);
var formlevariant;
f,i:Integer;
begin

for f:=0 to WebBrowser1.OleObject.Document.form s.Length-1 do begin
form:=WebBrowser1.OleObject.Documen t.forms.Item(f).elements;
for i:=0 to form.Length-1 do
if (form.item(i).type='submit') and (form.item(i).value='Войти') then form.item(i).click; // submit это кнопка 'Войти' это название кнопки
end;end;

это должно помочь

[Rukatekime]

А где находится TLoginDialog? Все панели перерыл - ненашел (((

[saha]

у меня на formlevariant ругается что с ним делать?