تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية تشغيل وإغلاق الادوات الذكية لويندوز 7 عن طريق الكود رمضان محمد 0 49 أمس, 12:22 PM
آخر رد: رمضان محمد
  [VB.NET] احتاج تعديل الكود يخص تشغيل Button حسب user domin hglogtd 4 106 22-05-17, 09:25 AM
آخر رد: hglogtd
  تشغيل برنامج دون الحاجه للاقلاع ببرامج اخري medoddd 0 36 19-05-17, 12:46 PM
آخر رد: medoddd
  تخزين مباشر بالداتا جريد alma_fandi 2 60 18-05-17, 03:03 AM
آخر رد: alma_fandi
  [VB.NET] كيفية تشغيل اكتر من Thread فى نفس الوقت ؟ الماجيك مسعد 10 215 28-04-17, 04:32 PM
آخر رد: Fantastico
  [سؤال] أريد كود لتشغيل صوت مخصص عند تشغيل المشروع أو البرنامج محمد سعيد عبد الظاهر 2 153 17-03-17, 06:13 PM
آخر رد: محمد سعيد عبد الظاهر
  [سؤال] مشكلة في تشغيل البرنامج من الفيجوال بيسك عزوز هزازي 1 163 16-03-17, 05:07 PM
آخر رد: Amir_alzubidy
  [سؤال] خطأ اثناء تشغيل البروجكت VB.Net Amir_alzubidy 13 386 12-03-17, 12:56 PM
آخر رد: Amir_alzubidy
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 1 238 22-01-17, 04:54 PM
آخر رد: thevirus
  [سؤال] تشغيل ملفات الصوتية متتالية سوري حر 7 493 23-12-16, 10:05 PM
آخر رد: Basil Abdallah

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


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