Hi,
This may be a stupid question but is it possible to use a normal TImage with this library?
Basically what I am doing is converting Extended ASCII characters to a Bitmap which I then want to save in other formats but I am a little confused as to how I can do this with a normal TImage Component using this library or if this is even possible?
Please could you inform me if it is?
Many thanks
Shamballa
ok I think I have found a way but not sure if it is the best way!
var
ImgStream: TMemoryStream;
begin
try
ImgStream := TMemoryStream.Create;
FImage := TMultiImage.Create;
ASCIIImg.Picture.Graphic.SaveToStream(ImgStream);
ImgStream.Position := 0;
FImage.LoadMultiFromStream(ImgStream);
finally
ImgStream.Free;
end;
...Then I am saving this way like in the Demo
var
CopyPath: string;
begin
SaveDlg.Filter := Imaging.GetImageFileFormatsFilter(False);
SaveDlg.FileName := ChangeFileExt(ExtractFileName(FFileName), '');
SaveDlg.FilterIndex := Imaging.GetFileNameFilterIndex(FFileName, False);
if SaveDlg.Execute then
begin
CopyPath := ChangeFileExt(SaveDlg.FileName, '.' +
Imaging.GetFilterIndexExtension(SaveDlg.FilterIndex, False));
FImage.SaveToFile(CopyPath);
end;
* This code "is" saving the images, but is there a better way?
Many thanks
Shamballa
Sorry for late answer, so if I understand this correctly:
You have TImage on form with TBitmap assigned to Picture property and you want to save this TBitmap to image file format selected by user.
You can convert TBitmap to Imaging's image easier than in your code this way:
uses ...., ImagingComponents;
begin
FImage := TSingleImage.Create;
ConvertBitmapToImage(ASCIIImg.Picture.Bitmap, FImage);
....
FImage.SaveToFile(CopyPath);
...
end;
Hi,
Thank you very much, it works very well and is shorter code!
shamballa