Base64 e çevirme

[a.mikayil]

Merahaba değerli arkadaşlar. Küçük ama çözemediüim bir sorunum var. Jpeg dosyasını Base64 e çevirmek için aşağıdakı fonksiyonu yazdım(kopyaladım desem daha doğru olur).

Kod: Tümünü seç

function TForm1.JPeg2MIME(jpg: TJPEGImage): String;
var
  ds: TMemoryStream;
begin
  ds := TMemoryStream.Create;
  try
    jpg.SaveToStream(ds);
    ds.Position := 0;
    Result := IdEncoderMIME.Encode(ds);
  finally
    ds.Free;
  end;
end;

Şimdi şu fonksiyonu kullanmak istediğimde parametre yerinde ne yazmam gerekiyor? Ben

Kod: Tümünü seç

Memo1.Lines.Append(JPeg2MIME('D:\Waterlillies.jpg'));

yazdığımda "Incompatible types TjpegImage and String" diyor.

[unicorn64]

JPeg2MIME fonksiyonunun tanımına bir kez ddaha göz atın isterseniz...

Kod: Tümünü seç

function TForm1.JPeg2MIME(jpg: TJPEGImage): String;