---

**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

---

Hej Anders,

hmm... jeg har forsøgt en lille test, men blev ikke meget klogere... min
intuition siger stadig, at dit filnavn ikke er korrekt; prøv at omkapsle
indlæsningen med "if FileExists(Filnavn) then", hvorefter du laver
AssignFile osv., og skriver en pæn fejl-meddelelse hvis filen ikke
eksisterer...

Og... Hvorfor har du en OpenDialog når filnavnet er en konstant? Måske
skulle du have skrevet "AssignFile(indfil, str);"?

Cheers,
Thomas

---

Opendialog er til at hente filnavnet på den fil det skal oploades med FTP.

Jeg prøver mig frem

Hilsen AHJ

"Thomas Rose" <trose@get2net.dk> skrev i en meddelelse
news:3bbf3548$0$42110$edfadb0f@dspool01.news.tele.dk...
> Hej Anders,
>
> hmm... jeg har forsøgt en lille test, men blev ikke meget klogere... min
> intuition siger stadig, at dit filnavn ikke er korrekt; prøv at omkapsle
> indlæsningen med "if FileExists(Filnavn) then", hvorefter du laver
> AssignFile osv., og skriver en pæn fejl-meddelelse hvis filen ikke
> eksisterer...
>
> Og... Hvorfor har du en OpenDialog når filnavnet er en konstant? Måske
> skulle du have skrevet "AssignFile(indfil, str);"?
>
> Cheers,
> Thomas
>
>

---

Et gæt... prøv at ændre indstillingedn "aligned record fields" i options. ??

De skal være ens når du skriver og læser fra en fil.
Hvis du har skrevet en fil med Aligned... så SKAL du også compile med
Aligned... i dit læse program.

"Anders Holm Jensen" <ahjmw@mail1.stofanet.dk> wrote in message
news:3bc045b3$0$14822$ba624c82@nntp02.dk.telia.net...
> Opendialog er til at hente filnavnet på den fil det skal oploades med FTP.
>
> Jeg prøver mig frem
>
> Hilsen AHJ
>
> "Thomas Rose" <trose@get2net.dk> skrev i en meddelelse
> news:3bbf3548$0$42110$edfadb0f@dspool01.news.tele.dk...
> > Hej Anders,
> >
> > hmm... jeg har forsøgt en lille test, men blev ikke meget klogere... min
> > intuition siger stadig, at dit filnavn ikke er korrekt; prøv at omkapsle
> > indlæsningen med "if FileExists(Filnavn) then", hvorefter du laver
> > AssignFile osv., og skriver en pæn fejl-meddelelse hvis filen ikke
> > eksisterer...
> >
> > Og... Hvorfor har du en OpenDialog når filnavnet er en konstant? Måske
> > skulle du have skrevet "AssignFile(indfil, str);"?
> >
> > Cheers,
> > Thomas
> >
> >
>
>

---

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
>
>
>