مشکل در شروع ارایه از یک [بایگانی]

سپهر-111

یک شنبه 12 آذر 1391, 17:40 عصر

سلام دوباره به دوستان بزرگوار

من در اول برنامه نوشتم
Option Base 1

و از توی ریسورس یک فایل توی یک ارایه لود میکنم

مشکلم اینه :

نقطه شروع ارایه باید از یک باشه ولی نقطه شروعش صفر هست ؟؟

( فقط زمانی که از توی ریسورس یک فایل تو یک ارایه لود میکنم نقطه شروعش صفر میشه و در بقیه حالت همون یک هستش )

ممنون میشم اگه راهنمایی بفرمایید

SlowCode

یک شنبه 12 آذر 1391, 17:43 عصر

سلام
میخوای ایندکس ریسورس هم از 1 شروع بشه؟
از محیط وی بی نمیشه چون برنامه ریسورس مستقله. راهی براش نمیدونم ولی میتونی ایندکس خودت رو 1+ کنی و از ریسورس بخونی.

سپهر-111

یک شنبه 12 آذر 1391, 17:59 عصر

با سلام وتشکر
بله دقیقا مشکلم همینه

مهرداد صفا

دوشنبه 13 آذر 1391, 20:04 عصر

سلام
از CopyMemory (http://barnamenevis.org/archive/index.php/t-364508.html) برای کپی کردن آرایه (http://barnamenevis.org/archive/index.php/t-364265.html) استفاده کنید. شبیه به این کد:

CopyMemory data(1),LoadResData(2,2)(0),len(LoadResData(2,2))

شاه وفا ابالفضل

سپهر-111

دوشنبه 13 آذر 1391, 20:19 عصر

سلام
از CopyMemory (http://barnamenevis.org/archive/index.php/t-364508.html) برای کپی کردن آرایه (http://barnamenevis.org/archive/index.php/t-364265.html) استفاده کنید. شبیه به این کد:

CopyMemory data(1),LoadResData(2,2)(0),len(LoadResData(2,2))

شاه وفا ابالفضل

با سلام
من کد شما را به این صورت نوشتم ولی جواب نگرفتم
ممنون میشم اگه چک بفرمایید
باتشکر از توجه شما

CopyMemory Data(1), LoadResData(102, "CUSTOM")(0), Len(LoadResData(102, "CUSTOM"))

مهرداد صفا

دوشنبه 13 آذر 1391, 20:38 عصر

با سلام
من کد شما را به این صورت نوشتم ولی جواب نگرفتم
ممنون میشم اگه چک بفرمایید
باتشکر از توجه شما

CopyMemory Data(1), LoadResData(102, "CUSTOM")(0), Len(LoadResData(102, "CUSTOM"))

به جای len با ubound امتحان کنید:

CopyMemory data(1),LoadResData(x,x),Ubound(LoadresData(x,x))+ 1

شاه وفا ابالفضل

سپهر-111

دوشنبه 13 آذر 1391, 20:51 عصر

به جای len با ubound امتحان کنید:

CopyMemory data(1),LoadResData(x,x),Ubound(LoadresData(x,x))+ 1

شاه وفا ابالفضل

شوربختانه جواب نداد

اینجوری نوشتم

CopyMemory Buffer_container(1), LoadResData(102, "CUSTOM"), UBound(LoadResData(102, "CUSTOM")) + 1

مهرداد صفا

دوشنبه 13 آذر 1391, 21:20 عصر

مشکل کجاست؟ error دارید یا؟
احتمالا آرایه ای که LoadResData بر میگرداند از نوع varient است. به شکل زیر امتحان کنید:

dim TempBuffer() as byte
TempBuffer=LoadResData(x,x)
CopyMemory MainBuffer(1),TempBuffer,Ubound(TempBuffer)+1

شاه وفا ابالفضل

سپهر-111

دوشنبه 13 آذر 1391, 21:30 عصر

مشکل کجاست؟ error دارید یا؟
احتمالا آرایه ای که LoadResData بر میگرداند از نوع varient است. به شکل زیر امتحان کنید:

dim TempBuffer() as byte
TempBuffer=LoadResData(x,x)
CopyMemory MainBuffer(1),TempBuffer,Ubound(TempBuffer)+1

شاه وفا ابالفضل

ممنون دوست گرامی
اخرش اینطور حلش کردم
ایا درسته؟

Resource_Extraction = LoadResData(102, "CUSTOM")
ReDim BUF(UBound(Resource_Extraction) + 1)
CopyMemory BUF(1), Resource_Extraction(0), CLng(UBound(BUF()))
ReDim Resource_Extraction(UBound(BUF))
CopyMemory Resource_Extraction(1), BUF(1), CLng(UBound(BUF()))

مهرداد صفا

دوشنبه 13 آذر 1391, 21:44 عصر

ممنون دوست گرامی
اخرش اینطور حلش کردم
ایا درسته؟

Resource_Extraction = LoadResData(102, "CUSTOM")
ReDim BUF(UBound(Resource_Extraction) + 1)
CopyMemory BUF(1), Resource_Extraction(0), CLng(UBound(BUF()))
ReDim Resource_Extraction(UBound(BUF))
CopyMemory Resource_Extraction(1), BUF(1), CLng(UBound(BUF()))

خواهش میکنم.
دقیقا. فقط مطمئن باشید که Resource_Extraction و buf هر دو آرایه byte باشند.

شاه وفا ابالفضل

سپهر-111

دوشنبه 13 آذر 1391, 22:14 عصر

خواهش میکنم.
دقیقا. فقط مطمئن باشید که Resource_Extraction و buf هر دو آرایه byte باشند.

شاه وفا ابالفضل

با تشکر از شما دوست عزیز
هر دو ارایه از نوع بایت هستند