Webbrowser

**poterp**

Hallo Experte,
ich habe folegende Probleme und zwar:
Ich habe das Komponente Twebbrowser in meinem Anwendung benutzt um sowohl im Internet zu surfen als auch Dateien aus meine Festplatt zu anzeigen. Unter Dateien ist gemeint:
- Jpeg
- Video
- Pdf

das mit der Internet funktioniert ganz gut, aber der Zugriff auf meine Festplatt lass mich schwitzen.
so sieht die quelle aus:

zusammenfalten · markieren

Delphi-Quellcode:

			
procedure Tfrm_webbrowser.Edit1KeyDown(Sender: TObject; var Key: Word;

  Shift: TShiftState);

begin

if key = VK_Return then

begin

webbrowser1.Navigate(widestring(Edit1.Text));

frm_webbrowser.Caption := (Edit1.Text);

Statusbar1.Panels [0].Text := ('Seite wird gesucht....');

end;

end;

jetzt möchte ich bestimmte Dateien aus meiner Festplatt zu greifen. Dafür habe ich 4 Komponente eingefügt:

1-DriveComboBox
1-DirectoryListBox
1-FileListBox
1-FilterComboBox

und do Folgt habe ich sie verbunden

zusammenfalten · markieren

Delphi-Quellcode:

			procedure Tfrm_webbrowser.LaufwerkeChange(Sender: TObject);

begin

VerzeichnisBox.Drive := Laufwerke.Drive;

end;

procedure Tfrm_webbrowser.VerzeichnisboxChange(Sender: TObject);

begin

Dateibox.Directory:=Verzeichnisbox.Directory;

end;

procedure Tfrm_webbrowser.DateiboxChange(Sender: TObject);

var FileExt: String;

begin

Try

FileExt := UpperCase(ExtractFileExt(Dateibox.FileName));

if(FileExt = '.mpeg') or (FileExt = '.mpg') or (FileExt = '.Avi') or

  (FileExt = '.Pdf')  or (FileExt = '.Jpeg')  then

Webbrowser.Application

Except

end;

end;

Meine Frage lautet:
Ich möchte bei clicken ein Element in der FileListBox, dass der Pfad in der Edit1 angeziegt.
Bei Bestätigen, dass das Objekt in der webbrowser gezeit wird.

ich habe wie folgt probiert:

markieren

Delphi-Quellcode:

			procedure Tfrm_webbrowser.DateiboxClick(Sender: TObject);

begin

Dateibox.FileEdit:= Edit1;

end;

er zeigt das im Dateibox gewähltes Objekt im Edit1 aber nicht in der Webbrowser.
weisst jemand, wie es einstellen kann?

mfg
Poter

Webbrowser

Webbrowser

Forumregeln