![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Форумчанин
Регистрация: 04.08.2008
Сообщений: 154
|
![]()
Сталкнулся с очередной проблемой
вот код 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', []); 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. я бы хотел добавить туда два edit логин и пароль ну и получить вот типо того S := Format('login='+edit1.text'password ='+edit2.text'button.x=27&button.y= 8', []); ну программа выдаёт ошибку в чём дело? |
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
WebBrowser POST | micq | Компоненты Delphi | 5 | 19.09.2008 21:37 |
запрос ссылается на несвязанный с ним запрос | kolebatel | SQL, базы данных | 0 | 11.06.2008 12:50 |
post запрос | Editor | Работа с сетью в Delphi | 4 | 20.04.2008 14:01 |
POST | Stanislav | Работа с сетью в Delphi | 3 | 03.03.2008 18:05 |
Как передать POST data через запрос в веб-приложение | Anticrim | Java для Web (EE, Servlet, JSP, Tomcat, Spring MVC) | 3 | 03.10.2007 18:19 |