Как из того файла адрес сайта прочитать в 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-ий день.Помогите!!! |