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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تشغيل ملفات الصوتية متتالية سوري حر 4 117 02-12-16, 07:18 AM
آخر رد: zinom
  تشغيل الفورم بتاريخ ddemed 3 79 01-12-16, 05:41 PM
آخر رد: ddemed
  كيفيه تشغيل الفورم بالتاريخ الذي يحدده المستخدم ddemed 5 130 23-11-16, 10:12 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 144 19-11-16, 03:17 AM
آخر رد: أبو عمر
  هل يمكن ان تتصل بقاعدة بيانات SQL من دون سيرفر اي اتصال مباشر مثل Access thevirus 4 115 09-11-16, 07:10 PM
آخر رد: thevirus
  تشغيل الفورم بتاريخ الضغط علي الزر ddemed 3 129 28-10-16, 10:01 AM
آخر رد: ddemed
  [VB.NET] مشكلة عند تشغيل الفيجوال بيسك دوت نت Asmaa adel 1 78 20-10-16, 02:22 AM
آخر رد: جوري
  [سؤال] مساعدة من فظلكم تشغيل قنوات بمشغل silverlight sambro 1 88 08-10-16, 04:37 PM
آخر رد: عبدالرحمن المكاوي
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 0 96 21-09-16, 11:17 AM
آخر رد: MOONMICROSYSTEM
Lightbulb عندي مشكلة عند تشغيل البرنامج معمول على لغة Microsoft Visual Studio 10 رمضان محمد 4 153 18-09-16, 02:17 AM
آخر رد: أبو عمر

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


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