+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة استخدام هذا الاجراء (/showthread.php?tid=9978)
طريقة استخدام هذا الاجراء - FouoooT - 29-12-2018
السلام عليكم
ممكن مثال لي استخدام هذا الاجراء
كود :
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;RE: طريقة استخدام هذا الاجراء - AX302 - 29-12-2018
و عليكم السلام
RE: طريقة استخدام هذا الاجراء - FouoooT - 30-12-2018
عمل رائع منك .. لكن اريد عرضه في مكون memo وليس حفظه في text
RE: طريقة استخدام هذا الاجراء - AX302 - 30-12-2018
(30-12-2018, 04:56 AM)FouoooT كتب : لكن اريد عرضه في مكون memo وليس حفظه في text
RE: طريقة استخدام هذا الاجراء - FouoooT - 30-12-2018
بارك الله فيك وزادك من علمه