номер она возвращает, но IsImage() говорит что картинки нет
но возвращает ImageID() и картинка есть
как такое может быть, что не так сделал
DLL
Macro q1(s):MessageRequester("", ""+s):EndMacro UsePNGImageDecoder() DataSection IncludePath "cover\" cr06: :IncludeBinary "cr06.png" EndDataSection Structure uuu num.i api.i EndStructure ProcedureDLL.a contrl(*mm.uuu) Protected im1, w1 im1=CatchImage(#PB_Any, ?cr06) ;im1=LoadImage(#PB_Any, "cover\cr06.png") q1(IsImage(im1)) *mm\num=im1 *mm\api=ImageID(im1) ProcedureReturn 1 EndProcedure
её вызов
EnableExplicit If OpenLibrary(125, "get_call-x64.dll")=0 MessageRequester("", "нет файла get_call-x64.dll") End EndIf Structure uuu num.i api.i EndStructure Procedure calldll2() Protected mm.uuu CallCFunction(125, "contrl", mm.uuu) Debug ""+mm\num+" "+mm\api+" "+IsImage(mm\num) SetGadgetState(13, mm\api) ;SetGadgetState(14, ImageID(mm\num)); нет этой картинки EndProcedure Procedure senior() Protected ev, eg, em, et If OpenWindow(1234, 870, 640, 400, 300, "5555555") AddKeyboardShortcut(1234, #PB_Shortcut_Escape, #ESC); ESC ImageGadget(13, 9, 9, 0, 0, 0) ImageGadget(14, 170, 9, 0, 0, 0) calldll2() Repeat ev=WaitWindowEvent():eg=EventGadget():et=EventType():em=EventMenu() If ev=#PB_Event_Menu And em=#ESC:Break:EndIf; ESC If ev=#PB_Event_Gadget EndIf Until ev=#PB_Event_CloseWindow EndIf EndProcedure senior()