Erreur de procedure dans un dllRésolu

Question

Bonjour, 
j'ai recontré un petit probléme avec une procedure mi dans un fichier dll.
Voici la procedure aucune erreur sauf a la fin de son éxécution un méssage d'érreur [Error d'écriture ...]
Donc j'ai testé de métre la procedure directement dans l'unit du programme et la tout marche bien sans méssage d'érreur.
Ma question : Pourquoi cella marche dans l'unit est pas dans la dll ? 

procedure DeleteFileList (ListScan : TListbox; Progress : TProgressBar); StdCall;
var
 I : Integer;
 begin
   Progress.Max := ListScan.Items.Count -1;
   repeat
     for I := 0 to ListScan.Items.Count - 1 do
       if ListScan.Items.Strings[I] <> '' then
        begin
          Progress.Position := Progress.Position +1;
          DeleteFile(pChar(ListScan.Items.Strings[I]));
        end;
     Inc(I);
   until I = ListScan.Items.Count +1;
 end;
 
Merci de votre réponse.

http://programmationdelphi.info/

PythonGreg · Accepted Answer

Try finally mais pourquoi de n'ai pas y pencé aven 

http://programmationdelphi.info/

Erreur de procedure dans un dll

1 réponse

Votre réponse

Discussions similaires