Discussion :

[knock]

bonjour;

j'ai un programme qui crée un fichier dans le répertoire temporaire de windows, premièrement je récupère le path du dossier temporaire avec "GetTempPath",
ensuite je crée un fichier dedans "tous se passe bien jusque ici".

quand j'essaye d'écrire dans le fichier créé, un message d'erreur s'affiche

<violation d'accès à l'adresse xxxxxx dans le module {nom du fichier}, lecture de l'adresse 00000000>

je crois que c'est du aux droits d'accès mais je sais pas quoi faire.

merci d'avance

[Linkin]

Montres-nous un bout de code.
Car si tu arrives à créer le fichier, il y a de fortes chances que tu puisses le modifier.

[knock]

j'ai essayé dans d'autres emplacement et ça marche bien, mais pas avec le dossier temporaire.
voici un bout du code

Code :

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

1
2
3
4
5
6
7
8
9
10
try
      FillChar(pathTMP,sizeof(pathTMP),0);
      GetTempPath(sizeof(pathTMP),pathTMP);
      FDest   :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.exe');
      DestFileStream := TFileStream.Create(FDest,fmCreate);
      DeCompresse(Methode,ResourceStream,DestFileStream,RecSFX);//c'est là où plante le programme 
    finally
      ResourceStream.Free;
      DestFileStream.Free;
    end;

[Andnotor]

Le programme que tu exécutes EST stocké dans le répertoire temporaire et tu essayes de l'écraser

[knock]

Le programme que tu exécutes EST stocké dans le répertoire temporaire et tu essayes de l'écraser

j'ai pas bien compris, parce que si je remplace le path du répertoire temporaire avec un autre, sa marche

par exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
try
      {FillChar(pathTMP,sizeof(pathTMP),0);
      GetTempPath(sizeof(pathTMP),pathTMP);
      FDest  :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.exe');}
      FDest:='D:/'+ExtractFileName(ParamStr(0));
      DestFileStream := TFileStream.Create(FDest,fmCreate);
      DeCompresse(Methode,ResourceStream,DestFileStream,RecSFX);
    finally
      ResourceStream.Free;
      DestFileStream.Free;
    end;

[ShaiLeTroll]

Je crois que Andnotor souligne que tu tentes de modifier le Fichier EXE qui est en cours d'execution !
Normalement un executable lancé ne peut pas être modifié !

Des sujets connexes :
Mise a jour d'une application par elle-même.
Un Programme Delete Lui Meme
l'application de s'auto-supprimer après sa fermeture

Autre Suggetions : lancer un exe depuis un TMemoryStream

Surement il y a une erreur dans cette ligne

Code :

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

FDest   :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.exe');

pourrait devenir

Code :

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

FDest   :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.data');

GetTempPath fourni bien quelque chose ?
GetTempPath fourni normalement un chemin, un IncludeTrailingPathDelimiter pour s'en assurer à la limite
Vérifie que le retour GetTempPath soit supérieur à zéro !

ParamStr(0) est surement déjà un .exe
ChangeFileExt de .exe à .exe ne sert pas à grand chose !

Sinon Application.ExeName c'est plus lisible que ParamStr(0)

[knock]

Je crois que Andnotor souligne que tu tentes de modifier le Fichier EXE qui est en cours d'execution !
Normalement un executable lancé ne peut pas être modifié !

mais ce que je veut n'est pas de modifier l'exe qui est en cours d'exécution!

je donne plus d'explication:
enfaîte l'exe qui est en cours d'exécution contient un fichier compressé, et ce que je veut c'est qu'au moment de l'exécution,
le fichier compressé doit s'extraire dans le répertoire temporaire pour ensuite le lancé.

j'ai essayer avec d'autre répertoire et sa marche.

Surement il y a une erreur dans cette ligne

Code :

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

FDest   :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.exe');

pourrait devenir

Code :

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

FDest   :=pathTMP+ChangeFileExt(ExtractFileName(ParamStr(0)),'.data');

GetTempPath fourni bien quelque chose ?
GetTempPath fourni normalement un chemin, un IncludeTrailingPathDelimiter pour s'en assurer à la limite
Vérifie que le retour GetTempPath soit supérieur à zéro !

le fichier de sortie est un exécutable.
j'ai fait ShowMessage(FDest); pour voir si ça donne le bon chemin {c'est le bon}

ParamStr(0) est surement déjà un .exe
ChangeFileExt de .exe à .exe ne sert pas à grand chose !

Sinon Application.ExeName c'est plus lisible que ParamStr(0)

Application.ExeName donne tous le chemin du fichier, alors je ne peut pas l'utiliser.

sinon j'ai changer vers FDest :=pathTMP+ExtractFileName(ParamStr(0));et le problème reste le même!

merci pour vos aides

[tourlourou]

as-tu essayé de tester si FileExists(DestStream) ? Et dans ce cas, un DeleteFile avant de créer le Stream (même si je pense que le fmCreate doit l'effacer)

[knock]

as-tu essayé de tester si FileExists(DestStream) ? Et dans ce cas, un DeleteFile avant de créer le Stream (même si je pense que le fmCreate doit l'effacer)

le résultat de mon programme c'est qu'il crée le fichier mais je ne peut pas le modifier.

j'ai testé avec FileExists(FDest), ça m'indique que le fichier n'existe pas malgré
qu'en regardant dans le répertoire temporaire de windows je trouve le fichier (0 octet).

j'ai testé FileExists sur d'autres fichier de ce répertoire mais ça donne le même résultat.

[Linkin]

Le problème doit venir de la méthode DeCompresse. Si à la place de Decompresse tu fais:

Code :

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

1
2
 
   DestFileStream.Write(pathTMP[0],Length(pathTMP));

Est-ce que cela fonctionne?

[knock]

Code :

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

1
2
 
   DestFileStream.Write(pathTMP[0],Length(pathTMP));

Est-ce que cela fonctionne?

Oui ça fonctionne bien

j'ai pas douter de la procedure DeCompress parce qu'elle fonctionne quand j'utilise
d'autres répertoire comme destination.

mais je voie pas l'erreur dans la procedure

voici le code de la procedure DeCompress

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
procedure DeCompresse(Methode:TMethodeCompression;Source,Destination:TStream;t:TRecSFX);
var     DStream: TDecompressionStream;
        taille:int64;
begin
        case Methode of
        mcNone: begin
                Source.Seek(0,soFromBeginning);
                Destination.CopyFrom(Source,Source.Size);
                end;
       { mcHuffman:Huffman_DeCompresse(Source,Destination);
        mcLZ:LZ_DeCompresse(Source,Destination);
        mcLZW:LZW_DeCompresse(Source,Destination); }
        mcZLib: begin
                Source.Seek(0,soFromBeginning);
                Source.Read(taille,sizeof(int64));
                DStream := TDecompressionStream.Create(Source);
                Destination.CopyFrom(DStream,t.Size);
                DStream.Free;
        end;
        end;
end;

[Linkin]

... en testant tu devrais trouver que cela vient uniquement en mcZLib.

Reprends ton code. Je pense que tu es parti de cette source:
http://theroadtodelphi.wordpress.com...ting-archives/

[knock]

... en testant tu devrais trouver que cela vient uniquement en mcZLib.

j'ai testé avec mcHuffman {même problème}

Reprends ton code. Je pense que tu es parti de cette source:
http://theroadtodelphi.wordpress.com...ting-archives/

oui c'est bien l'un des source que j'ai utilisé.
je crois que je vais abandonné l'idée de créé un fichier temporaire et chercher d'autres solutions.

merci Linkin et à tous les autres de m'avoir aider.
je met ma requête résolu.

[tourlourou]

Code :

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

1
2
3
4
5
6
7
begin
                Source.Seek(0,soFromBeginning);
                Source.Read(taille,sizeof(int64)); // à quoi sert cette variable ?
                DStream := TDecompressionStream.Create(Source);
                Destination.CopyFrom(DStream,t.Size); // t.Size devrait-il^valoir taille ?
                DStream.Free;
        end;