Image als Tbyte umwandeln

**zeina**

Hallo,
ich habe ein Problem.
Ich habe ein Bilds aus Tmemorystream ,das ich gezeigt und gedreht habe.Ich will die gedrehetes Bild mit Orginales Bild umtauschen.
Ich versuche gedrehtes Bild in Temomerystream zu speichern und die altes löschen,aber ich könnte nicht (image1.picture.graphic)to Tbyte array wexchseln.

zusammenfalten · markieren

Delphi-Quellcode:

			
procedure TFormFoto.SpeichernClick(Sender: TObject);

var

lpTblFeature: TpBtrvDBTableData;

  lpTblGraph: TpBtrvDBTableData;

  lmstFoto  : TMemoryStream;

  laImage  : TaByte;

  lgrpImage: TGraphic;

begin

 lmstFoto:=Tmemorystream.Create;

 try

  Image1.Picture.Graphic.SaveToStream(lmstFoto);

  laImage:= GetBlob(RelData('GR'));

  lmstFoto.Position := 0;

  if lGetRecord(RelData('GR'), 1) then begin

     InitRelation('GR', false);

      PutSField('GR', 1, 'CP');

      PutIdField('GR', 2, 20);

       Searchrecord('GR', 1);

      // DeleteRecord('GR');

  end;

      PutSField('GR', 1, 'CP');

      PutIdField('GR', 2, 34);

      PutBlob ('GR',laImage);

      InsertRecord2('GR');

 finally

  lmstFoto.Free;

 end;

end;

Image als Tbyte umwandeln

Image als Tbyte umwandeln

Forumregeln