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