listbox-browser

prædifineret bib

sidder ik lige med delphi men det skulle gøre det i din Form1.Create

filelistbox1.Directory :=('c:\temp');

næ... lad os glemme den filelistbox og bruge en listbox i stedet...

uses shellapi

i din txt fil prøv at skrive www.eksperten.dk gem filen

//hent filen
fl.Items.LoadFromFile('c:\temp\test.txt');// i Form1.OnCreate



// i din listbox click event skriver du:
var
Filename: string;
begin                      //listbox = (fl)
Filename:= (fl.items[fl.itemindex]);
ShellExecute(0, 'open', PChar(filename), nil, nil, SW_SHOWNORMAL);


når du så trykker på et vilkårligt valgt item i listboxen starter den browseren med den url som du har trykket på i listboxen.

Det lyder jo spændende nok stone.Det vil jeg skam kigge på - og det kan osse være det slet ikke kan lade sig gøre at køre asp/php i en borland webbrowser, men det var det jeg ville forsøge .. derfor winexec.

Iøvrigt virker startbib-metoden fint tak.

Men jeg har forsøgt mig med de strenge (sikkert sundt) og fået nogen lagt sammen i en editfelt, hvilket virker bortset fra at man ikke kan få fjernet stien fra filnavnet, hvilket jo er nødv. hvis man vil køre localhost-filer ?

ala: Eaddress.text := Eaddress.text+filelistbox1.filename;

Men jeg glæder mig til at prøve din itemindexmetode, den har jeg osse prøvet at finde ud af uden held.

Tak indtil videre.Skal nok meddele om jeg finder en brugbar vej.
Man kan vel osse dirigere en shellexecute til en Twebbrowser såvidt jeg husker, men hvodan man komer af med bib-stien i filnavnet har jeg svært ved at overskue.

Dejligt med listboxmetode der fungere.tror jeg slår mig til tåls med det foreløbig.

fandt iøvr. ud af det andet osse: man bruger
Eaddress.text := Eaddress.text+extractfilename(filelistbox1.filename);

kanon og held og lykke med dit project SS

Tak - jeg tror det hjalp :=)

I hvert fald opdagede jeg noget der programmeringsmæssigt synes at ha nogle perspectiver for 'folk', der 'tumler' med hjemmesider:

Mit program (meget simpelt - se nedenfor) bevirker jo at man kan gemme sine
webprogramfiler i et vilkårligt bib. i stedet for at skabe mere og mere rod
i wwwroot-bibbet - herligt.
(der er kommet flere 'uses' med end højst nødv.)

unit host2Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  FileCtrl, StdCtrls, OleCtrls, SHDocVw, dxCore, dxWinXPBar, dxContainer, ImgList, ActnList, ExtCtrls,
  shellapi, ComCtrls, Menus;
type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    FileListBox1: TFileListBox;
    DirectoryListBox1: TDirectoryListBox;
    EAddress: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure FileListBox1Change(Sender: TObject);



    procedure Label1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FileListBox1Change(Sender: TObject);



begin
Eaddress.text := 'http://localhost/' ;

  Eaddress.text := Eaddress.text+extractfilename(filelistbox1.filename);
  webBrowser1.Navigate(EAddress.Text);
end;


procedure TForm1.Label1Click(Sender: TObject);
begin
    webBrowser1.Navigate(EAddress.Text);
end;

end.

øhh beklager, men så pragtfuldt var det desværre ikke haha - det virker kun fordi der ligger de samme filer i wwwroot - desværre, men aligevel er det ok at man kan samle 'udvalg' af sine filer i andre bibber - det gir da lidt bedre overblik i nogen sammenhænge så fint nok