تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] تشغيل ملف مضغوط مباشر دون فك ؟
#1
السلام عليكم ورحمه الله وبركاته

لدى مجموعه صور وملفات نصيه اريد وضعهم فى ملف واحد ( ملف مضغوط مثلا )
بحيث يمكننى الوصول اليهم بشكل مباشر دون فك الضغط
لقد جربت طريقه اخرى وهى قرائه الملفات byte ثم تحويلها الى string ثم حفظها فى ملف واحد ولكنها طريقه بطيئه وتستغرق وقت فى القرائه

شكرا لكم Heart
الرد }}}
تم الشكر بواسطة:
#2
لماذا تريد فعل ذلك لعل هناك طريقة افضل
الرد }}}
تم الشكر بواسطة: سعود
#3
الملفات النصية والصور لاتحتاج استخراجهم للقراءة . بل مباشرة تقرا محتواهم خزن صورة وملف html واكتب الكود التالي:
كود :
PictureBox1.Image = My.Resources.logo
        WebBrowser1.DocumentText = My.Resources.thread_1546
الرد }}}
تم الشكر بواسطة:
#4
شكرا اخوانى على مجهودكم

الفكره اننى اقوم ببرمجه برنامج يتعامل مع FTP لنقل الملفات وتسجيلها فى قواعد بيانات لذلك بدلا من ان يقوم البرنامج برفع عده ملفات يضغطهم ويرفعهم مره واحده

فهل يمكن جمع عده ملفات فى ملف واحد ثم قرائتهم مباشره دون الحاجه لفك الضغط او ما شابه ؟ !!!

وشكرا
الرد }}}
تم الشكر بواسطة:
#5
في فيجوال بيسك 4 توجد هناك كلاسات تتعامل مع zip مباشرة


اولا : عليك بتحويل الTarget Framework لمشروعك الى 4.5

ثانيا : قم باضافة المراجع System.IO.Compression و System.IO.Compression.FileSystem

ثاثا : اضف في اعلى المحرر Imports System.IO.Compression

رابعا : لو كان عندي ملف مضغوط باسم update.zip لو حبيت اعرف اسماء الملفات التي بداخله :-

PHP كود :
Const  zipfile As String "C:\Users\Fti\Desktop\update.zip"

Dim za As ZipArchive ZipFile.Open(zipfileZipArchiveMode.Read)


For 
Each entrie As ZipArchiveEntry In za.Entries
    MessageBox
.Show(entrie.Name)
Next 

راح يطبع لي في كل مرة اسم ملف في الملف المضغوط

حيث ان مصطلح Entries يعبر عن الملفات التي بداخل الملف المضغوط



-



لو حبيت تعرف حجم ملف معين داخل الملف المضغوط :-

PHP كود :
Const  zipfile As String "C:\Users\Fti\Desktop\update.zip"

Dim za As ZipArchive ZipFile.Open(zipfileZipArchiveMode.Read)

Dim ae As ZipArchiveEntry za.Entries.Where(Function(nn.Name "update.xml").FirstOrDefault()
MessageBox.Show(ae.Length.ToString()) 



--


عمل استخراج لملف معين وليكن اسمه update.xml :

PHP كود :
Const  zipfile As String "C:\Users\Fti\Desktop\update.zip"

Dim za As ZipArchive ZipFile.Open(zipfileZipArchiveMode.Read)

Dim ae As ZipArchiveEntry za.Entries.Where(Function(nn.Name "update.xml").FirstOrDefault()
ae.ExtractToFile("c:/update.xml"


--


لو حبيت تجيب بيانات الملف لوحده دون عمل استخراج (يعني جلب bytes) له :-

PHP كود :
Dim fileData As Byte()
Const  
zipfile As String "C:\Users\Fti\Desktop\update.zip"

Dim za As ZipArchive ZipFile.Open(zipfileZipArchiveMode.Read)

Dim ae As ZipArchiveEntry za.Entries.Where(Function(nn.Name "update.xml").FirstOrDefault()
fileData = New Byte(ae.Length) {}

Dim st As Stream ae.Open()
st.Read(fileData0fileData.Length)

'now fileData variable is store update.xml data 


--


لو حبيت تعرف حجم الملف update.xml بعد ان تم ضغطه اي (Compression size) :-

PHP كود :
Const  zipfile As String "C:\Users\Fti\Desktop\update.zip"

Dim za As ZipArchive ZipFile.Open(zipfileZipArchiveMode.Read)

Dim ae As ZipArchiveEntry za.Entries.Where(Function(nn.Name "update.xml").FirstOrDefault()
MessageBox.Show(ae.CompressedLength.ToString()) 


الاكواد محولة من السي شارب - يمكن فيها غلط
الرد }}}
تم الشكر بواسطة: abulayth , الماجيك مسعد
#6
شكرا لكم اخوان ولكل الخبراء

Heart
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 671 14-12-23, 12:07 PM
آخر رد: asmarsou
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 375 01-12-23, 10:57 PM
آخر رد: Taha Okla
  تشغيل الماكرو عن طريق اكواد الفجوال نيمو 0 271 03-11-23, 11:14 AM
آخر رد: نيمو
  [VB.NET] أين الخطأ فى تشغيل هذا التطبيق AhmedEissa 0 238 27-10-23, 04:05 PM
آخر رد: AhmedEissa
  تشغيل برنامج خارجي ضمن شاشة برنامجي strongriseman 1 341 13-09-23, 10:14 PM
آخر رد: anes
  استفسار عن تشغيل قاعدة البيانات بالبرنامج عند العميل محمد ابوخليل 1 335 10-09-23, 07:09 PM
آخر رد: Asem2
  مساعده في تشغيل اكثرمن فورم في وقت واحد maherhaddaf 5 527 19-07-23, 03:28 PM
آخر رد: Taha Okla
  [سؤال] تشغيل راديو عن طريق الانترنت أبوسعود 5 716 01-07-23, 10:34 PM
آخر رد: asmarsou
  التحقق من معطيات قبل تشغيل البرنامج ابو محمد محمد محمد 3 509 30-04-23, 11:03 PM
آخر رد: عبدالله الدوسري
Photo كيفيةة تشغيل المشروع ك ادمن administrator atefkhalf2004 5 593 12-04-23, 12:41 PM
آخر رد: atefkhalf2004

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم