Discussion :

[NotANumber]

Bonjour,

J'utilise un TidTCPClient pour envoyer un TBitMap, l'envoi se passe correctement et le réception des données, dans une seconde application avec un TidTCPServer, aussi.

Cependant losque je veux utiliser cette image j'ai un EAccessViolation, j'ai déja poster un sujet pour ce pb et l'on m'a conseillé de mettre l'image dans un TStringStream.

J'ai fait comme ceci :

Code :

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

1
2
3
4
5
6
7
 
var
S: TStringStream;
begin
 S := TStringStream.Create('');
 Image1.Picture.BitMap.SaveToStream(S);
end;

Sans parler de l'envoyer, si ensuite je fait :

Code :

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

1
2
 
Image2.Picture.BitMap.LoadFromStream(S);

Cela ne me met pas d'erreur mais mon image2 est vide.

J'ai aussi essayé avec un TFileStream, ca marche nikel dans la première application (celle qui envoi l'image) mais j'obtient la meme erreur qu'au début lors de l'utilisation de l'image dans la seconde application... EAccessViolation.
Alors est ce que j'ai oublié qqch avec le TStringStream ? Ou bien y'a t'il une autre solution car là je ne vois plus comment faire!

[NotANumber]

Pas d'idée ?

[Pedro]

Salut
t'as essayé, entre le Save et le Load de remettre le pointeur au début avec Seek(0, soFromBeginning) ?

[Graffito]

Bonjour,

Pour vérifier que le passage du tstringstream se fait bien,
exécute S.datastring:='Bonjour' avant de faire l'envoi et fait un showmessage(s) juste après la réception.

Il faut bien faire attention de passer dans le message IP tous les caractères du Tstringsteam et pas seulement la référence de l'objet.
En clair, il faut passer autant de caractères que length(S.datastring) précédé d'un entier (4 octets) indiquant la longueur.

[NotANumber]

J'ai réussi à résoudre mon problème avec un TidFileStream ! Merci de votre aide !