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

[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]

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