fichier et reset..

Question

quand jouvre un fichier avec assignfile et que je fait reset il me fait une erreur je pense que sa vient de la longueur du nom du fichier ou des espace (auto connection.exe par exemple).

dd:=dir1.Directory+file1.Items[i];
if copy(dir1.Directory,length(dir1.Directory),1)<>'\' then
dd:=dir1.Directory+'\'+file1.Items[i];
AssignFile(f, dd);
showmessage(dd);
Reset(f);
size:=FileSize(f);
CloseFile(f);

si sa peut vous aidez.
HELP ME PLEASE !

cs_Nono40 · Answer

Quelle est l'erreur exacte stp ? Les espaces dans les noms de fichiers ne posent pas de problème.

D'autre part pour ajouter un '\' automatiquement en cas de besoin il faut faire :
dd:=IncludeTrailingPathDelimiter(dir1.Directory)+file1.Items[i];
AssignFile(f,dd);
...

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

les message derreur sont :
---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EInOutError with message 'I/O error 32'. Process stopped. Use Step or Run to continue.
---------------------------
OK   Help   
---------------------------
et :
---------------------------
Project1
---------------------------
I/O error 32.
---------------------------
OK   
---------------------------
j'ai regarder il me fait les erreur a partir de 8 caractere je croi.

cs_Nono40 · Answer

Quel nom de fichier essayes-tu d'ouvrir ?

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

c:\program files\global scapes\cute ftp pro\cftppro.exe

cs_Nono40 · Answer

C'est normal car tu essayes d'ouvrir une application qui doit être en cours d'exécution. Or en exécution, les fichiers .EXE sont vérouillés par windows.

Il est vrai que l'erreur n'est pas explicite...

--- :sleepy)  Nono du Moulin  :sleepy) ---

cs_Nono40 · Answer

C'est normal car tu essayes d'ouvrir une application qui doit être en cours d'exécution. Or en exécution, les fichiers .EXE sont vérouillés par windows.

Il est vrai que l'erreur n'est pas explicite...

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

ben alors comment faire pour connaitre sa taille ?

cs_Nono40 · Answer

On fait comme ça :
procedure TForm1.Button2Click(Sender: TObject);
Var sr: TSearchRec;
begin
  If FindFirst(IncludeTrailingPathDelimiter(dir1.Directory)+file1.Items[i], faAnyFile, Sr)=0
    Then ShowMessage(IntToStr(sr.Size));
  FindClose(sr);
end;

--- :sleepy)  Nono du Moulin  :sleepy) ---

intello2001 · Answer

merci

Fichier et reset..

9 réponses

Votre réponse

Discussions similaires