Pliki INI i WebBrowser

0

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, INIFiles, StdCtrls, OleCtrls, SHDocVw;

type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Button2: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
INI : TINIFile;
begin
try
INI := TINIFile.Create('C:Documents and SettingsDomPulpitProgramy testoweplik.ini');
INI.WriteString('Strona Startowa','01' ,Edit1.Text);
finally
INI.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
INI : TINIFile;
c : String;
begin
try
c := INI.ReadString('Strona Startowa','01','');

WebBrowser1.Navigate(format('Strona Startowa "%s"',[c]));
finally
INI.Free;
end;
end;

end.

Dlaczego WebBrowser nie otwiera tej strony.Albo po 15 minutach dopiero

NIE wiem dlaczego ale ani w code ani tak nie ma znku "<font color="red"><font size="18">\\</span></span>"

0

Przede wszystkim w procedureze Button2Click
musisz dopisac na poczatku :
INI := TINIFile.Create(twoj_plik_ini);

[dopisane]
a do wywolywania strony uzyj:

WebBrowser1.Navigate(WideString(c));

0

ok zobacze czy działa.PS odezwij sie na ICQ

1 użytkowników online, w tym zalogowanych: 0, gości: 1