i need a little help. My picture is already saved in bytes in a file. I want to show it with the help of any sort of Stream( Stream, Memorystream ... ),
this is how I save my picture to file.
AssignFile( SourceFile, PictFilename ); // Picture
Reset( SourceFIle ); // Open picture
SizeOfPict := FileSize( SourceFile );
Write( MyFile, SizeOfPict SHR 24 ); // save the size of the picture to the file
Write( MyFile, SizeOfPict SHR 16 );
Write( MyFile, SizeOfPict SHR 8 );
Write( MyFile, SizeOfPict SHR 0 );
for cntr := 1 to SizeOfPict do begin
read( SourceFIle, TempByte ); // read picture in bytes
write( MyFile, TempByte ); // write picture in bytes to file
end;
And now I would like some help with how to show the picture in TImage.
Thank you for your help.