Discussion :

[LandGreen]

Bonjour à tous,

Lors de l'exécution de mon exécutable, un fichier nommé « ÿØÿà » se crée automatiquement juste à côté de mon fichier .exe.

Après quelques recherches, il semble que l’image que j’affiche sur la page d’authentification soit à l’origine de ce problème. Voici le bout de code utilisé pour afficher le logo :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
with F_DM.T_Info do
begin
  if not FieldByName('inv1').IsNull then // Vérifie si le champ inv1 n'est pas vide
  begin
    if Trim(FieldByName('inv1').AsString) <> '' then // Vérifie si le champ inv1 n'est pas une chaîne vide
    begin
      sPath1 := ExtractFilePath(Application.ExeName) + FieldByName('inv1').AsString;
      TBlobField(FieldByName('inv1')).SaveToFile(sPath1);
      Image2.Picture.LoadFromFile(sPath1 + '.jpg');
    end;
  end;
end;

[ALWEBER]

Tu dois avoir 2 champs l'un pour le nom de l'image, l'autre pour son contenu et il y a une confusion entre les deux
Un exemple

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
 
procedure TForm1.BmpToJPG(stNom: string);
var
  stream: TMemoryStream;
  Bmp1: TBitmap;
  Jpeg: TJpegImage;
  StName: string;
begin
  try // BW
 
    stream := TMemoryStream.Create;
    TB1Photo.SaveToStream(stream);
    stream.Position := 0;
    Bmp1 := TBitmap.Create;
    Bmp1.LoadFromStream(stream);
    Jpeg := TJpegImage.Create;
    Jpeg.PixelFormat := jf24Bit;
    Jpeg.Assign(Bmp1);
    Jpeg.CompressionQuality := 66;
    StName := StRepImage + stNom + '.jpg';
    Jpeg.SaveToFile(StName);
    Jpeg.Free;
    try
      Bmp1.PixelFormat := pf8bit;
    finally
      Bmp1.Free;
    end;
  finally
    stream.Free;
  end;
end;

[ShaiLeTroll]

ÿØÿà est un magic number très connu, c'est 0xFF 0xD8 0xFF 0xE0 pour indiquer un JPEG

Comme indiqué par ALWEBER, il te faut avoir un nom de fichier, éventuellement un nom de fichier temporaire

Sinon le fichier est inutile TBlobField.SaveToStream + Image2.Picture.LoadFromStream avec un TMemoryStream

[LandGreen]

Tu dois avoir 2 champs l'un pour le nom de l'image, l'autre pour son contenu et il y a une confusion entre les deux
Un exemple

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
 
procedure TForm1.BmpToJPG(stNom: string);
var
  stream: TMemoryStream;
  Bmp1: TBitmap;
  Jpeg: TJpegImage;
  StName: string;
begin
  try // BW
 
    stream := TMemoryStream.Create;
    TB1Photo.SaveToStream(stream);
    stream.Position := 0;
    Bmp1 := TBitmap.Create;
    Bmp1.LoadFromStream(stream);
    Jpeg := TJpegImage.Create;
    Jpeg.PixelFormat := jf24Bit;
    Jpeg.Assign(Bmp1);
    Jpeg.CompressionQuality := 66;
    StName := StRepImage + stNom + '.jpg';
    Jpeg.SaveToFile(StName);
    Jpeg.Free;
    try
      Bmp1.PixelFormat := pf8bit;
    finally
      Bmp1.Free;
    end;
  finally
    stream.Free;
  end;
end;

Merci beacoup, très belle piste c'est résolu

[ShaiLeTroll]

Comme tu es en D7, si tu veux un complément, pour n'utiliser que des Stream et pas de fichier, un vieux sujet : JPEG et champ BLOB