Da questa procedura (che fino a qualche giorno fa funzionava) devo creare un file di testo e scrivere delle linee in questo. Ma, adesso, stranamente, mi da una risposta che non capisco: i/o error 183.
Tipo che non abbia i permessi per scrivere sul file che lo script stesso ha creato. Come mai? :master:
Cosa sbaglio?
Ripeto, funzionava. Cancellando e ricreando la cartella mi ha dato quest'errore.
Come mai?
L'errore segnalato è nella riga in grassetto.
procedure TForm1.Button2Click(Sender: TObject);
begin
//tutto per l'ftp + crazione file txt
idftp1.Connect();
idftp1.TransferType:=ftascii;
idftp1.ChangeDir(GrabLine2(fileconf, 4));
idftp1.ChangeDir(GrabLine2(fileconf, 5));
nomefile:=label2.Caption;
//creo il file
testo:=edit1.Text;
file2:=testo+'.txt';
AssignFile(w, path+testo+'.txt');
ReWrite(w);
Writeln(w, testo);
Writeln(w, nomefile);
Closefile(w);
//mando, cancello e resetto tutto
idftp1.Put(path+nomefile, sr.name, false);
idftp1.Put(path+file2, file2, false);
deletefile(path+nomefile);
deletefile(path+file2);
idftp1.Disconnect;
//label2.Caption:='';
edit1.Text:='';
button2.Enabled:=false;
form1.Visible:=false;
end;
Help...
![]()