Einzelnen Beitrag anzeigen

arnof

Registriert seit: 25. Apr 2013
1.250 Beiträge
 
Delphi 10.1 Berlin Enterprise
 
#7

AW: SOAP TBytpeDynArray zum Bild

  Alt 12. Jul 2018, 17:30
ich habe es nun via FileStream als bild.jpg gespeichert. dann erscheint das Bild, wie es soll!

Delphi-Quellcode:
  fi:=TFileStream.Create('D:\test\bild.jpg',fmCreate);
  fi.Write(eccPic.Data[0],eccPic.DataLength);
  fi.Free;
Delphi-Quellcode:
  try
   BlobStream := TMemoryStream.Create;
   BlobStream.Read(eccPic.Data[0],eccPic.DataLength);
   Blobstream.Position := 0;

  fi:=TFileStream.Create('D:\test\bild.jpg',fmCreate);
  fi.Write(eccPic.Data[0],eccPic.DataLength);
  fi.Free;


   Jpg := TJPEGImage.Create;
   try
// Jpg.LoadFromStream(BlobStream);
// cxImage1.Picture.Assign(Jpg);
     cxImage1.Picture.LoadFromFile('D:\test\bild.jpg');
   finally
     Jpg.Free;
   end;
  finally
   BlobStream.Free;
  end;
weiss jemand wie das nur via memorystream geht ?
  Mit Zitat antworten Zitat