طريقة استخدام هذا الاجراء
#1
السلام عليكم
ممكن مثال لي استخدام هذا الاجراء
كود :
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;
الرد
#2
و عليكم السلام


الملفات المرفقة
.zip   Test.zip (الحجم : 53.3 KB / التحميلات : 12)
:: من يملك المعلومة يملك الميدان :: 
الرد
#3
عمل رائع منك .. لكن اريد عرضه في مكون memo وليس حفظه في text
الرد
#4
(30-12-2018, 04:56 AM)FouoooT كتب : لكن اريد عرضه في مكون memo وليس حفظه في text


الملفات المرفقة
.zip   Test.zip (الحجم : 53.57 KB / التحميلات : 5)
:: من يملك المعلومة يملك الميدان :: 
[-] كل من 1 user says قال شكرا ل AX302 على المشاركة المفيدة
  • FouoooT
الرد
#5
بارك الله فيك وزادك من علمه
الرد


التنقل السريع :


مستخدمين يتصفحوا هذا الموضوع: 1 ضيف