طريقة استخدام هذا الاجراء

[FouoooT]

السلام عليكم

ممكن مثال لي استخدام هذا الاجراء

كود :

procedure ConvertFileToBase64(const AInFileName, AOutFileName: string);
var
 inStream: TStream;
 outStream: TStream;
begin
 inStream := TFileStream.Create(AInFileName, fmOpenRead);
 try
   outStream := TFileStream.Create(AOutFileName, fmCreate);
   try
     TNetEncoding.Base64.Encode(inStream, outStream);
   finally
     outStream.Free;
   end;
 finally
   inStream.Free;
 end;
end;

[AX302]

و عليكم السلام

[FouoooT]

عمل رائع منك .. لكن اريد عرضه في مكون memo وليس حفظه في text

[AX302]

لكن اريد عرضه في مكون memo وليس حفظه في text

[FouoooT]

بارك الله فيك وزادك من علمه