Здравствуйте форумчане!
прошу помочь с кодом следущей проблемы... Есть DLL написаная на PureBasic:
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | ProcedureDLL ImageMem(* Pointer )
Size= 0
PokeL(* Pointer ,?Image)
Size=?ImageEnd-?Image
ProcedureReturn Size
EndProcedure
ProcedureDLL TextMem(* Pointer )
Size= 0
PokeL(* Pointer ,?Text)
Size=?TextEnd-?Text
ProcedureReturn Size
EndProcedure
DataSection
Image:
IncludeBinary "Значок.ico"
ImageEnd:
Text:
IncludeBinary "Текст.txt"
TextEnd:
EndDataSection
; IDE Options = PureBasic 4.31 (Windows - x86)
; ExecutableFormat = Shared Dll
; Folding = -
; Executable = MyFilesDLL . dll
|
Админ: Пользуемся тегами при оформлении кода!
Если текст извлекается из DLL в Delphi 7 без проблем, то как извлечь
картинку ImageMem (*.ico) из данной DLL (например в Image).
Спасибо за любые предложения...