Nu kommer der også en "File Access Denied" fejl, så der må være noget galt
med nanvene eller ligende, men jeg kan ikke finde det
Hilsen AHJ
"Anders Holm Jensen" <ahjmw@mail1.stofanet.dk> skrev i en meddelelse
news:3bbf1335$0$14820$ba624c82@nntp02.dk.telia.net...
>
> **Hej, jeg prøver lige igen, for jeg kan ikke finde en fornuftig
forklaring
> på dette problem
>
> **Her er der lidt der driller :
>
> **Jeg opretter en dat fil af records :
>
> const Filnavn = 'indstillinger.dat';
>
> type
> Tindstillinger = record
> passw: string[30];
> host: string[30];
> userid: string[30];
> subdir: string[50];
> upsti: string[75];
> downsti: string[75];
> Backupupsti: string[75];
> Backupdownsti: string[75];
> Bsubdir: string[75];
> end;
> **//mere kode
> public
> { Public declarations }
> indfil: file of Tindstillinger;
> str: string;
> end;
> **//mere kode
> **Så opendialog, hvor jeg gemmer en sti i :
>
> procedure TFpersonale.Button1Click(Sender: TObject);
> begin
> str := '';
> if opendialog1.execute then
> begin
> str := OpenDialog1.Filename;
> end;
> label9.caption := str;
> end;
>
> **Også skal jeg uploade det, hvor jeg bruger filen til at hente data :
>
> procedure TFpersonale.Button2Click(Sender: TObject);
> var
> indstillinger: Tindstillinger;
> begin
> if MessageDlg('Vil du Uploade billede til web-serveren ?',
> mtConfirmation, [mbYes,mbNO], 0 ) = mrYes then
> begin
> AssignFile(indfil, filnavn); //her kommer fejlen
> try
> reset(indfil);
> Read(indfil, indstillinger);
> FTP.Host := indstillinger.host;
> FTP.Port := 21;
> FTP.TimeOut := 0;
> FTP.UserID := indstillinger.userid;
> FTP.Password := indstillinger.passw;
> FTP.Connect;
> FTP.ChangeDir(indstillinger.Bsubdir);
> FTP.Upload(str , DBEdit6.text);
> FTP.Disconnect;
> finally
> CloseFile(indfil);
> end;
> end;
> end;
>
> **Men så kommer fejlen ved AssignFile. Jeg har det til at virke på en
anden
> form, men der brugere jeg ikke OpenDialog.
> **Hvad gør jeg ?
> --
> Hilsen AHJ
>
> Anders Holm Jensen
>
>
>