كيفية قراءة وعرض البيانات الثنائية في آسيا والمحيط الهادئ

ملخص

يوضح هذا المقال كيفية قراءة وعرض البيانات الثنائية باستخدام "صفحات الخادم النشطة".


نقدر العديد من المطورين سهولة استخدام Scripting.FileSystemObject لفتح ملف ASCII وثم عرض محتوياته في Microsoft Word أو Microsoft Excel من خلال Internet Explorer. في إنشائها الحالي، آسيا والمحيط الهادئ مباشرة يوفر أية كائنات قابلة للمقارنة لقراءة الملفات التي تحتوي على بيانات ثنائية مثل ورقة عمل Excel باستخدام وحدات الماكرو أو ملف Adobe Acrobat (.pdf)، صورة.gif أو الملفات الأخرى التي تحتوي على بيانات ثنائية. ومع ذلك، كتابة مطور ASP كائن أعمال مخصص أو مكون إضافة هذه الوظيفة.

مزيد من المعلومات

يقدم الجزء الأول التعليمات البرمجية ل ASP يتلقى ويعرض الملف الثنائي باستخدام MIME مناسبة كتابة، و "الجزء الثاني" يوضح كيفية إنشاء Visual Basic 5.0 (أو أحدث) ActiveX DLL المكون الذي يمتد قدرة ASP لقراءة البيانات الثنائية.

الجزء الأول: آسيا والمحيط الهادئ نموذج فتح ورقة عمل Excel التي تحتوي على وحدات ماكرو

   <%   Response.buffer = TRUE
Response.ContentType = "application/x-msexcel"

Dim vntStream

Set oMyObject = Server.CreateObject("MyObject.BinRead")
vntStream = oMyObject.readBinFile("c:\temp\tempxls.xls")

Response.BinaryWrite(vntStream)

Set oMyObject = Nothing

Response.End
%>


ملاحظة: ملفات Acrobat لتغيير نوع MIME باستخدام Response.ContentType = "التطبيق/قوات الدفاع الشعبي". صورة.gif، استخدم Response.ContentType = "صورة/gif".

الجزء الثاني: Visual Basic 5.0 ActiveX DLL (MyObject.BinRead)

لإنشاء مكون يقوم بقراءة الملف الثنائي، نفذ الخطوات التالية:

  1. إنشاء مشروع ActiveX DLL جديد في Visual Basic 5.0 أو أحدث.
  2. إعادة تسمية المشروع MyObject.
  3. إعادة تسمية فئة الوحدة النمطية بينريد.
  4. قص ولصق التعليمات البرمجية التالية في مقطع Declarations عام في فئة الوحدة النمطية:

       Function readBinFile(ByVal bfilename As String) As Variant          Dim fl As Long
    Dim FileNum As Long
    Dim binbyte() As Byte
    Dim binfilestr As String

    On Error GoTo errHandler

    FileNum = FreeFile
    Open bfilename For Binary Access Read As #FileNum

    fl = FileLen(bfilename)
    ReDim binbyte(fl)

    Get #FileNum, , binbyte

    Close #FileNum

    readBinFile = binbyte
    Exit Function

    errHandler:
    Exit Function
    End Function

  5. حفظ المشروع.
  6. القائمة ملف انقر فوق إجراء MyObject.dll.
إذا كان ملقم ويب على جهاز منفصل من حيث إنشاء المكون، تحتاج إلى نسخ المكون إلى ملقم ويب وسجل باستخدام RegSvr32.


تضمين جانب إدراج الملف الذي تم إنشاؤه في الجزء أنا في آخر صفحة ASP التي تحتوي على النص أو التنسيقات الأخرى، استخدام خادم عبارة.
خصائص

رقم الموضوع: 193998 - آخر مراجعة: 12‏/01‏/2017 - المراجعة: 1

تعليقات