Модераторы: Snowy, MetalFan, bems, Poseidon
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Загрузка информации в WebBrowser из txt файла, Помогите... 
:(
    Опции темы
muxer
Дата 16.7.2009, 11:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.7.2009

Репутация: нет
Всего: нет



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

Код

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


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

F: TextFile;


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

В Главной форме есть WebBrowser
Как при каждом запуске в него должен загружаться адрес сайта и WebBrowser  заходил на указанный сайт...
Пытался по разному, но выкидывало кучу ошибок...
Напишите правильный вариат.Прошу!!! smile 
PM MAIL   Вверх
Данкинг
Дата 16.7.2009, 11:54 (ссылка) |    (голосов:2) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



А как ты адрес-то передаёшь браузеру? Вообще-то так делают:
Код

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

 smile 




--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Keeper89
Дата 16.7.2009, 12:19 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2579
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Цитата(Данкинг @  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');



--------------------
PM MAIL WWW   Вверх
muxer
  Дата 16.7.2009, 12:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.7.2009

Репутация: нет
Всего: нет



Как из того файла адрес сайта прочитать в 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-ий день.Помогите!!!
PM MAIL   Вверх
Keeper89
Дата 16.7.2009, 13:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2579
Регистрация: 26.2.2009

Репутация: 9
Всего: 58



Вот чтение:
Код

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;

Это?

Это сообщение отредактировал(а) Keeper89 - 16.7.2009, 13:24


--------------------
PM MAIL WWW   Вверх
Данкинг
Дата 16.7.2009, 13:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



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

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


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muxer
  Дата 16.7.2009, 15:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.7.2009

Репутация: нет
Всего: нет



Спасибо!!! Молодцы!!! 
Еще раз спасибо всем!!! smile  smile  smile

Добавлено через 2 минуты и 49 секунд
Только вот последний вопрос...
А как к адресу прибавить допустим /forum
То есть:
www.mysite.ru/forum
www.mysite.ru/blog
PM MAIL   Вверх
Данкинг
Дата 16.7.2009, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130



Код

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 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
muxer
Дата 16.7.2009, 17:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 6
Регистрация: 14.7.2009

Репутация: нет
Всего: нет



Еще раз огромное спасибо.Что то про + не подумал =)))))) smile  smile  smile 
PM MAIL   Вверх
Google
  Дата 21.1.2020, 19:29 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Для новичков"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Для новичков | Следующая тема »


 




[ Время генерации скрипта: 0.1221 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.