Sujet Précédent Sujet Suivant

Tstream

trollnumber1 Messages postés 12 Date d'inscription lundi 17 février 2003 Statut Membre Dernière intervention 28 avril 2003 - 3 avril 2003 à 03:33
trollnumber1 Messages postés 12 Date d'inscription lundi 17 février 2003 Statut Membre Dernière intervention 28 avril 2003 - 3 avril 2003 à 04:14

Troll 8-)

Bonjours

j'ai un probleme quand je save un Timage il prend seulement 4 k et quand je save toutes les Timages il en prend 47 megs pourtant je n'en save seulement 148 si je sais calculer 148*4 k = 592k j'aimerais savoir pourquoi ca fait ca voici mon code.

procedure TForm2.Enregistrer1Click(Sender: TObject);
type
TinfImage = Packed Record
Hint: String[25];
Left: Integer;
Top: Integer;
Taille: Integer;
end;

var
i : integer;
Edit : TImage;
fichier : TMemoryStream;
Fiche: TinfImage;
Fs: TFileStream;

begin
Fichier:= TMemoryStream.Create;
Fs:= TFileStream.Create(Filename,FmOpenReadWrite);
for i:=0 to ComponentCount - 1 do
if Components[i] is TImage then
if i >222 then //je met 222 parce que je veux quil save seulement a partir de 222 jusqua a la fin qui est supposé etre 370
begin
Edit:= TImage(Components[i]);
Edit.Picture.Bitmap.SaveToStream(Fichier);
Fs.CopyFrom(Fichier,0);
end;
Fs.Free;
end;

Merci Beaucoup pour votre aide.

A voir également:

Delphi tstream
Delphi format - Conseils pratiques -Delphi
Delphi thread - Conseils pratiques -Delphi
Delphi formatdatetime ✓ - Forum Delphi / Pascal
Manipulation avec FormatDateTime ✓ - Forum Delphi / Pascal
Delphi pos - Forum Delphi / Pascal

1 réponse

Réponse 1 / 1

trollnumber1 Messages postés 12 Date d'inscription lundi 17 février 2003 Statut Membre Dernière intervention 28 avril 2003
3 avril 2003 à 04:14

Troll 8-)

Discussions similaires

Parametre de ShellExecute

Fonction Pos().

Convertir un png en jpeg Delphi XE

Décompiler un EXE Delphi

StringReplace ?

Votre réponse

Discussions similaires