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

Sollte es nicht so heißen?

markieren

Delphi-Quellcode:

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

[edit] Code korrigiert [/edit]

Grüße
Klaus

Danke Klaus,

es hat so geklappt:
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

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

Also bei mir funktioniert es so:

markieren

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

1000 Danke Klaus es funktioniert
Grüß
Poter

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