[Çözüldü] FMX Android uygulaması ile sunucuya resim yükleme

[Mesut]

Merhaba Delphi 11.3 FMX android projemde sunucuya TImage içindeki resmi yüklemem gerekiyor. kamera galeri izinlerini verdim. resmi TImage içindeki resmi  IdHttppost ile  resmi sunucuya yükleyemedim. Postman'da tüm testlerimi yaptım api tarafında problem yok.  bu konuda yardımlarınızı rica ediyorum.

[RAD Coder]

Merhaba,
Image nesnesine aldığınız fotoğrafı aşağıdaki gibi Base64 String e dönüştürün ve servise gönderin.

class function TMetinselIslemler.GetImageStreamToBase64(const ABitmap: TBitmap): String;
var
 Surf: TBitmapSurface;
 inStream: TBytesStream;
 outStream: TStringStream;
begin
 if ABitmap.IsEmpty then
   Exit;
 Surf := TBitmapSurface.Create;
 Surf.Assign(ABitmap);
 inStream := TBytesStream.Create;
 outStream := TStringStream.Create;
 try
   TBitmapCodecManager.SaveToStream(inStream, Surf, SJPGImageExtension);
   inStream.Position := 0;
   TNetEncoding.Base64.Encode(inStream, outStream);
   Result := outStream.DataString;
   { Test: inStream.SaveToFile(ExpandFileName('d:\04.jpg')); }
 finally
   inStream.Free;
   Surf.Free;
 end;
end;

[Mesut]

(24-07-2023, Saat: 16:31)RAD Coder Adlı Kullanıcıdan Alıntı: Merhaba,
Image nesnesine aldığınız fotoğrafı aşağıdaki gibi Base64 String e dönüştürün ve servise gönderin.

class function TMetinselIslemler.GetImageStreamToBase64(const ABitmap: TBitmap): String;
var
 Surf: TBitmapSurface;
 inStream: TBytesStream;
 outStream: TStringStream;
begin
 if ABitmap.IsEmpty then
   Exit;
 Surf := TBitmapSurface.Create;
 Surf.Assign(ABitmap);
 inStream := TBytesStream.Create;
 outStream := TStringStream.Create;
 try
   TBitmapCodecManager.SaveToStream(inStream, Surf, SJPGImageExtension);
   inStream.Position := 0;
   TNetEncoding.Base64.Encode(inStream, outStream);
   Result := outStream.DataString;
   { Test: inStream.SaveToFile(ExpandFileName('d:\04.jpg')); }
 finally
   inStream.Free;
   Surf.Free;
 end;
end;

Rad Coder Arkadaşımın dediği gibi Base64 Stringe çevirip api tarafında tekrar imaja çevirerek çözdüm Teşekkürler