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:

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

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:

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

[Klaus01]

Sollte es nicht so heißen?

Delphi-Quellcode:

procedure Tfrm_webbrowser.DateiboxClick(Sender: TObject); 
begin 
  edit1.text:=Dateibox.FileName;
end;

[edit] Code korrigiert [/edit]

Grüße
Klaus

[poterp]

Danke Klaus,

es hat so geklappt:

Delphi-Quellcode:

edit1.text:= Dateibox.FileName;

ich kriege den Pfad in der EditBox gezeigt, aber nix wird gezeigt auf der Webbrowser, ich weisse ncht warum.
mfg
Poter

[poterp]

weisst jemand, wie ich das mit der WebBrowser einstellen kann?
mfg
poter

[Klaus01]

Also bei mir funktioniert es so:

Delphi-Quellcode:

procedure TForm1.FileListBox1Click(Sender: TObject);
begin
  edit1.Text:=FileListBox1.FileName;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Webbrowser1.Navigate(edit1.text);
end;

Grüße
Klaus

[poterp]

1000 Danke Klaus es funktioniert
Grüß
Poter :dancer:

[poterp]

Hallo,
ich habe noch ein problem endeckt. Ich kann uzw. jede homepage und pdf über dem Webbrowser anzeigen lassen aber wenn es um ein JPeg oder Tiff etc... geht, wird der Photoshop gestartet. Das ist nicht der Sinn von der sachen. Wenn der Webbrowser gestartet ist, möchte ich alles drauf zeigen lassen.
weisst jemand wie ich es einstellen kann?
mfg
poter