Вопрос # 4 665: …тавитть текст из БО в Браузер Дельфина… (Общие вопросы по программированию)

Нужна помощь не как не вставитть текст из БО в Браузер Дельфина

Здравствуйте, Hakera!
Предлагаю Вам свой вариант решения задачи.
На форме Button1 и WebBrowser1.
Код и описание в приложении.
В процессе разработки нужно пройти в режиме отладки по функции
function TForm1.FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
и через значение переменной temp определить имена элементов на странице WebBrowser1.
Удачи.
Вопросы - пишите.

Приложение:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, WinSock, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
Button1: TButton;
function FillForm(WebBrowser: TWebBrowser; FieldName: string; Value: string): Boolean;
procedure Button1Click(Sender: TObject);
procedure WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
var
i, j: Integer;
FormItem: Variant;
temp: string;
begin
Result := False;
begin
Exit;
end;
begin
for j := 0 to FormItem.Length - 1 do
begin
try
begin
FormItem.Item(j).Value := Value;
Result := True;
end;
except
Exit;
end;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
login, parol, reg: string;
begin
if VarToStr(URL) = 'http://tantal.ru/' then
begin
ShowMessage('Error. Field not available or no reg found.');
ShowMessage('Error. Field not available or no name found.');
ShowMessage('Error. Field not available or no pass found.');
end;
end;
end.

Мини-форум вопроса

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 4 665

Мини-форум вопроса

Экспертная система Delphi.int.ru

Сообщество программистовОбщение, помощь, обмен опытом

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

Статистика за сегодня:

Лучшие эксперты

Вопрос # 4 665

Мини-форум вопроса

Сообщество программистов
Общение, помощь, обмен опытом