Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Загрузка информации в WebBrowser из txt файла


Автор: muxer 16.7.2009, 11:44
Здраствуйте.Столкнулся с проблемой.
Смотрел на этом форуме, ничего похожего не нашел.
В общем есть текстовой файл data в папке с exe файлом моего приложения...(браузера)
В программе есть sEdit1, в него я вписываю адрес сайта на кнопку Ok   вешаю такой код:

Код

AssignFile(F,'data.txt');
Rewrite(F);
Writeln(F,sEdit1.Text);
CloseFile(F);


И объявляю переменyю:
Код

F: TextFile;


Все это происходит в отдельном окне...

В Главной форме есть WebBrowser
Как при каждом запуске в него должен загружаться адрес сайта и WebBrowser  заходил на указанный сайт...
Пытался по разному, но выкидывало кучу ошибок...
Напишите правильный вариат.Прошу!!! smile 

Автор: Данкинг 16.7.2009, 11:54
А как ты адрес-то передаёшь браузеру? Вообще-то так делают:
Код

WebBrowser.Navigate('www.porno.com');

 smile 


Автор: Keeper89 16.7.2009, 12:19
Цитата(Данкинг @  16.7.2009,  12:54 Найти цитируемый пост)
А как ты адрес-то передаёшь браузеру? Вообще-то так делают:
Выделить всёкод Pascal/Delphi
1:
    
WebBrowser.Navigate('www.porno.com');

 smile 

Ну вот...
Код

WebBrowser.Navigate('www.porno.ru');

В кризис надо поддерживать отечественного производителя! (пока на на импорт денег не хватает smile).

З.Ы. А вообще можно и текстовый файл запихнуть если что:
Код

WebBrowser.Navigate('C:\data.txt');

Автор: muxer 16.7.2009, 12:41
Как из того файла адрес сайта прочитать в WebBrower и он зайдет на прочитанный сайт!!!

Добавлено через 4 минуты и 55 секунд
В общем вот код Главной формы:
Код


unit UManager;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, ComCtrls, sPageControl, sToolBar, ToolWin, acCoolBar,
  sStatusBar, Menus, StdCtrls, RichEditBrowser, OleCtrls, SHDocVw_EWB, EwbCore,
  EmbeddedWB, ImgList, acAlphaImageList, IEAddress, Buttons, sBitBtn, sLabel,
  FavoritesListView, ExtCtrls, sSplitter, sPanel, HistoryListView, LinksBar,
  FavoritesTree, sSpeedButton, acProgressBar, EditDesigner;

type
  TForm21 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    sStatusBar1: TsStatusBar;
    sCoolBar1: TsCoolBar;
    sToolBar1: TsToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    sSkinManager1: TsSkinManager;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    PopupMenu1: TPopupMenu;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    UNet1: TMenuItem;
    sAlphaImageList1: TsAlphaImageList;
    sAlphaImageList2: TsAlphaImageList;
    ToolButton8: TToolButton;
    PopupMenu2: TPopupMenu;
    N5: TMenuItem;
    HTML1: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    sToolBar2: TsToolBar;
    ToolButton9: TToolButton;
    PopupMenu3: TPopupMenu;
    N6: TMenuItem;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    IEAddress1: TIEAddress;
    sBitBtn1: TsBitBtn;
    sPanel1: TsPanel;
    sSplitter1: TsSplitter;
    sPageControl1: TsPageControl;
    sTabSheet1: TsTabSheet;
    Editor: TRichEditWB;
    Browser: TEmbeddedWB;
    sPanel2: TsPanel;
    sPageControl2: TsPageControl;
    sTabSheet2: TsTabSheet;
    sTabSheet3: TsTabSheet;
    sPanel3: TsPanel;
    FavoritesTree1: TFavoritesTree;
    FavoritesListView1: TFavoritesListView;
    sSpeedButton1: TsSpeedButton;
    sSpeedButton2: TsSpeedButton;
    HistoryListView1: THistoryListView;
    sSpeedButton3: TsSpeedButton;
    sPanel4: TsPanel;
    sSpeedButton4: TsSpeedButton;
    sProgressBar1: TsProgressBar;
    sBitBtn2: TsBitBtn;
    ToolButton12: TToolButton;
    N9: TMenuItem;
    N10: TMenuItem;
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure HTML1Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N8Click(Sender: TObject);
    procedure sBitBtn1Click(Sender: TObject);
    procedure sSpeedButton1Click(Sender: TObject);
    procedure sSpeedButton2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure sSpeedButton4Click(Sender: TObject);
    procedure sSpeedButton3Click(Sender: TObject);
    procedure BrowserProgressChange(ASender: TObject; Progress,
      ProgressMax: Integer);
    procedure BrowserStatusTextChange(ASender: TObject; const Text: WideString);
    procedure sBitBtn2Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form21: TForm21;
  Browser: TEmbeddedWB;
  MySite: string;
  F:TextFile;

implementation
uses Site;
{$R *.dfm}
procedure TForm21.BrowserProgressChange(ASender: TObject; Progress,
  ProgressMax: Integer);
begin
sProgressBar1.Max:=ProgressMax;
sProgressBar1.Position:=Progress;
end;

procedure TForm21.BrowserStatusTextChange(ASender: TObject;
  const Text: WideString);
begin
sStatusBar1.SimpleText:=Text;
end;

procedure TForm21.FormCreate(Sender: TObject);
begin
AssignFile(F,'C:\data.txt');
Reset(F);
ReadLn(F,MySite);
CloseFile(F);
Browser.Go('http://MySite');
sPanel1.Hide;
end;

procedure TForm21.HTML1Click(Sender: TObject);
begin
Browser.Hide;
Editor.Show;

Browser.ViewPageSourceHtmlToStrings(Editor.Lines);
  if Editor.HighlightHTML then
    Editor.DoHighlightHTML;
end;

procedure TForm21.N10Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm21.N5Click(Sender: TObject);
begin
Browser.Show;
end;

procedure TForm21.N6Click(Sender: TObject);
begin
Browser.ViewPageSourceHtml;
end;

procedure TForm21.N7Click(Sender: TObject);
begin
Browser.Hide;
Editor.Show;

Browser.ViewPageSourceTextToStrings(Editor.Lines);
end;

procedure TForm21.N8Click(Sender: TObject);
begin
Browser.Hide;
Editor.Show;

Browser.ViewPageLinksToStrings(Editor.Lines);
end;

procedure TForm21.sBitBtn1Click(Sender: TObject);
begin
Browser.Navigate(Trim(IEAddress1.Text));
end;

procedure TForm21.sBitBtn2Click(Sender: TObject);
begin
sPanel1.Show;
end;

procedure TForm21.sSpeedButton1Click(Sender: TObject);
begin
FavoritesTree1.Hide;
FavoritesListView1.Show;
end;

procedure TForm21.sSpeedButton2Click(Sender: TObject);
begin
FavoritesListView1.Hide;
FavoritesTree1.Show;
end;

procedure TForm21.sSpeedButton3Click(Sender: TObject);
begin
Browser.AddToFavorites(Browser.LocationURL, Browser.LocationName);
end;

procedure TForm21.sSpeedButton4Click(Sender: TObject);
begin
sPanel1.Hide;
end;

procedure TForm21.ToolButton3Click(Sender: TObject);
begin
Browser.GoBack;
end;

procedure TForm21.ToolButton4Click(Sender: TObject);
begin
Browser.GoForward;
end;

procedure TForm21.ToolButton5Click(Sender: TObject);
begin
Browser.Refresh;
end;

procedure TForm21.ToolButton6Click(Sender: TObject);
begin
Browser.Stop;
end;

end.



А вот окна для добавления сайта в текстовой файл.
Код

unit Site;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, sSkinManager, StdCtrls, sLabel, Buttons, sSpeedButton, sEdit,
  ExtCtrls, sPanel;

type
  TForm1 = class(TForm)
    sPanel1: TsPanel;
    sLabel1: TsLabel;
    sEdit1: TsEdit;
    sSpeedButton1: TsSpeedButton;
    sLabel2: TsLabel;
    procedure sSpeedButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  F: TextFile;
  a, i: Integer;

implementation

{$R *.dfm}

procedure TForm1.sSpeedButton1Click(Sender: TObject);
begin
AssignFile(F,'C:\data.txt');
Rewrite(F);
Writeln(F,sEdit1.Text);
CloseFile(F);
Close;
end;

end.


Может проблема в другом? Маюсь уже 3-ий день.Помогите!!!

Автор: Keeper89 16.7.2009, 13:23
Вот чтение:
Код

procedure TForm1.sSpeedButton1Click(Sender: TObject);
var
  myURL: String;
  F: TextFile;
begin
  AssignFile(F,'C:\data.txt');
  Reset(F);
  Readln(F, myURL);
  CloseFile(F);
  WebBrowser1.Navigate(myURL);
end;

Это?

Автор: Данкинг 16.7.2009, 13:31
Цитата(muxer @  16.7.2009,  13:41 Найти цитируемый пост)
Может проблема в другом? 

Может быть, только ты не пишешь, в чём конкретно проблема. smile 
Вот Keeper89 всё подробно написал тебе. smile 

Автор: muxer 16.7.2009, 15:01
Спасибо!!! Молодцы!!! 
Еще раз спасибо всем!!! smile  smile  smile

Добавлено через 2 минуты и 49 секунд
Только вот последний вопрос...
А как к адресу прибавить допустим /forum
То есть:
www.mysite.ru/forum
www.mysite.ru/blog

Автор: Данкинг 16.7.2009, 16:39
Код

procedure TForm1.sSpeedButton1Click(Sender: TObject);
var
  myURL: String;
  F: TextFile;
begin
  AssignFile(F,'C:\data.txt');
  Reset(F);
  Readln(F, myURL);
  CloseFile(F);
  WebBrowser1.Navigate(myURL+'/forum');
end;

 smile 

Автор: muxer 16.7.2009, 17:36
Еще раз огромное спасибо.Что то про + не подумал =)))))) smile  smile  smile 

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)