Discussion :

[Romain²]

Bonjour, voila j'ai récupéré une petite dll mais je ne comprend pas une chose :S

Lorsque je tente de l'utilisé il me donne soit une erreur d'exeption soir un chemin non valide.

Merci a celui qui y jetera un oeil et qui poura peut-être m'aider.

DLL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
 
function CompressTODu(Files : TStrings; const Filename : String): Boolean;
var
  infile, outfile, tmpFile : TFileStream;
  compr : TCompressionStream;
  i,l : Integer;
  s : String;
 
begin
  if Files.Count > 0 then
  begin
    outFile := TFileStream.Create(Filename,fmCreate);
    try
      l := Files.Count;
      outfile.Write(l,SizeOf(l));
      for i := 0 to Files.Count-1 do
      begin
        infile := TFileStream.Create(Files[i],fmOpenRead);
        try
          s := ExtractFilename(Files[i]);
          l := Length(s);
          outfile.Write(l,SizeOf(l));
          outfile.Write(s[1],l);
          l := infile.Size;
          outfile.Write(l,SizeOf(l));
          tmpFile := TFileStream.Create('tmp',fmCreate);
          compr := TCompressionStream.Create(clMax,tmpfile);
          try
            compr.CopyFrom(infile,l);
          finally
            compr.Free;
            tmpFile.Free;
          end;
          tmpFile := TFileStream.Create('tmp',fmOpenRead);
          try
            outfile.CopyFrom(tmpFile,0);
          finally
            tmpFile.Free;
          end;
        finally
          infile.Free;
        end;
      end;
    finally
      outfile.Free;
    end;
    DeleteFile('tmp');
  end;
   result := true;
end;

VCL

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
...
function CompressTODu(Files : TStrings; const Filename : String):Boolean; stdcall; external 'Ma.dll';
...
procedure TFormM.ImageFCClick(Sender: TObject);
var Fil: Tfilename;
begin
if (ListBox.Count = 0)
 then
  Begin
   Label1.Caption :='Aucun fichier a compressé';
  end;
  if (ListBox.Count >= 1)
 then
begin
Fil := 'C:/Test.test'; // Essayer aussi avec Test.test
CompressTODu(ListBox.Items,Fil);
end;
end;

[evarisnea]

salut,
essaie dans le code de ta Dll de déclarer ta fonction exportée comme etant en stdcall, vu que dans ton code VCL tu la déclare comme tel.
vérifie l'affectation de valeur à ta variable Fil et fais ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fil := 'C:\Test.test'; // Essayer aussi avec Test.test

au lieu de cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Fil := 'C:/Test.test'; // Essayer aussi avec Test.test

[Romain²]

Merci, effectivment sa venais du Stdcall
(Par contre je ne sai spas comment la déclaré dans la fonction donc je l'ai hoté de la vcl )
(Donc si tu sais comment faire je veux bien savoir :°))


Edit: Je recherche aussi comment faire pour faire un OpenDialog ou Savedialog pour un dossier. (Exemple choisir le dossier de décompression)

[evarisnea]

Merci, effectivment sa venais du Stdcall
(Par contre je ne sai spas comment la déclaré dans la fonction donc je l'ai hoté de la vcl )

comment déclarer la fonction dans la DLL ? ajoute juste la déclaration stdcall (comme tu l'a faite dans le code VCL)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
function CompressTODu(Files : TStrings; const Filename : String): Boolean; stdcall;
var
  infile, outfile, tmpFile : TFileStream;
  compr : TCompressionStream;
  i,l : Integer;
  s : String;
 
begin
  if Files.Count > 0 then
  begin
    outFile := TFileStream.Create(Filename,fmCreate);
    try
      l := Files.Count;
      outfile.Write(l,SizeOf(l));
      for i := 0 to Files.Count-1 do
      begin
        infile := TFileStream.Create(Files[i],fmOpenRead);
        try
          s := ExtractFilename(Files[i]);
          l := Length(s);
          outfile.Write(l,SizeOf(l));
          outfile.Write(s[1],l);
          l := infile.Size;
          outfile.Write(l,SizeOf(l));
          tmpFile := TFileStream.Create('tmp',fmCreate);
          compr := TCompressionStream.Create(clMax,tmpfile);
          try
            compr.CopyFrom(infile,l);
          finally
            compr.Free;
            tmpFile.Free;
          end;
          tmpFile := TFileStream.Create('tmp',fmOpenRead);
          try
            outfile.CopyFrom(tmpFile,0);
          finally
            tmpFile.Free;
          end;
        finally
          infile.Free;
        end;
      end;
    finally
      outfile.Free;
    end;
    DeleteFile('tmp');
  end;
   result := true;
end;

Je recherche aussi comment faire pour faire un OpenDialog ou Savedialog pour un dossier. (Exemple choisir le dossier de décompression)

SaveDialog/OpenDialog pour un dossier ? regarde un peu du coté de l'aide des composants en question... :

[Romain²]

Merci j'ai trouvé.

(SelectDirectory)