are the fact that the working calls are exported from the DLL which loads the newlisp.dll
The non-working (they do there work/drawing but the boolean-return seems to throw the access violation) are in a DLL which is loaded in the main-app parralel to the newlisp-caller DLL.
Not sure if that can make a difference now.
Code: Select all
FUNCTION hpwImageExec( password,cmdid,Params0,Params1,Params2,Params3,Params4,Params5,Params6,Params7,Params8,Params9 : PChar ) : BOOLEAN; stdcall;
VAR
IDNum : Integer;
BEGIN
Result := FALSE;
IF ExtPasswordcheck(password) Then
BEGIN
IDNum := StrToInt(cmdid);
{ Examine the Action string to determine which Plug-In command to execute... }
CASE IDNum OF
1 : Result := CreateImageControl( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7 );
2 : Result := RemoveImageControl( Params0, FALSE );
3 : Result := ImageDrawLine( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7 );
4 : Result := ImageDrawLines( Params0, Params1, Params2, Params3, Params4, Params5 );
5 : Result := ImageFillRect( Params0, Params1, Params2, Params3, Params4, Params5 );
6 : Result := ImageRectangle( Params0, Params1, Params2, Params3, Params4, Params5, Params6 );
7 : Result := ImageFrameRect( Params0, Params1, Params2, Params3, Params4, Params5 );
8 : Result := ImagePixels( Params0, Params1, Params2, Params3);
9 : Result := ImageTextOut( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7);
10 : Result := ImageTextOutAngle( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7, Params8);
11 : Result := ImageFloodFill( Params0, Params1, Params2, Params3);
13 : Result := ImageColorSwap( Params0, Params1, Params2, Params3, Params4, Params5, Params6);
15 : Result := ImageLoadFromFile( Params0, Params1, Params2, Params3, Params4, Params5);
16 : Result := ImageSaveToFile( Params0, Params1, Params2, Params3, Params4, Params5);
17 : Result := ImageSize( Params0, Params1, Params2);
18 : Result := ImageScaleFromFile( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7);
19 : Result := ImageFileTurn( Params0, Params1, Params2);
20 : Result := ImageLoadFromExe( Params0, Params1, Params2, Params3, Params4, Params5);
21 : Result := ImageLoadFromMimeStream( Params0, Params1, Params2, Params3, Params4, Params5);
22 : Result := ImageSaveToMimeStream( Params0, Params1, Params2, Params3, Params4, Params5);
27 : Result := ImageCopyFromClip( Params0, Params1, Params2, Params3, Params4);
28 : Result := ImageCopyToClip( Params0, Params1, Params2, Params3, Params4 );
29 : Result := ImageScaleFromClip( Params0, Params1, Params2, Params3, Params4, Params5, Params6 );
30 : Result := ImageToClip( Params0, Params1, Params2);
31 : Result := ImageToRTF( Params0, Params1, Params2, Params3, Params4, Params5);
32 : Result := ImageNViewLibSetLanguage( Params0, Params1);
33 : Result := ImageNViewLibLoad( Params0, Params1, Params2, Params3, Params4, Params5);
34 : Result := ImageNViewLibImageSize( Params0, Params1, Params2, Params3);
40 : Result := ImageLoadFromWMF( Params0, Params1, Params2, Params3, Params4, Params5);
70 : Result := ImageSetAlign( Params0, Params1);
71 : Result := ImageSetPos( Params0, Params1, Params2);
72 : Result := ImageSetSize( Params0, Params1, Params2);
73 : Result := ImageMove( Params0, Params1, Params2);
74 : Result := ImageSetCursor( Params0, Params1, Params2);
75 : Result := ImageSetHint( Params0, Params1, Params2);
76 : Result := ImageDragAndDrop( Params0, Params1, Params2, Params3, Params4);
77 : Result := ImageCheckHotspot( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7 );
78 : Result := ImageSetCheckDrop( Params0, Params1, Params2, Params3, Params4 );
79 : Result := ImageSetDragImage( Params0, Params1, Params2, Params3, Params4, Params5 );
80 : Result := ImageSetActions( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7 );
81 : Result := ImageGetPixel( Params0, Params1, Params2, Params3);
82 : Result := ImageGetColor( Params0, Params1, Params2, Params3, Params4);
83 : Result := ImageCompare( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7, Params8);
84 : Result := ImageFind( Params0, Params1, Params2, Params3, Params4, Params5);
90 : Result := CreateScrollBarControl( Params0, Params1, Params2 );
91 : Result := RemoveScrollBarControl( Params0, FALSE );
92 : Result := ScrollbarSetParams( Params0, Params1, Params2, Params3);
93 : Result := ScrollbarSmallChange( Params0, Params1);
94 : Result := ScrollbarLargeChange( Params0, Params1);
95 : Result := ScrollbarPageSize( Params0, Params1);
100 : Result := ActivatePopup( Params0, Params1, Params2);
101 : Result := SetPopupItem( Params0, Params1, Params2);
102 : Result := ImageLoadCursor( Params0, Params1);
103 : Result := ImageLoadCursorBitmap( Params0, Params1, Params2, Params3, Params4);
104 : Result := ImageLoadFromFileEx( Params0, Params1, Params2, Params3, Params4, Params5);
105 : Result := ImageFileOpenPictureBox( Params0, Params1, Params2, Params3, Params4, Params5);
106 : Result := ImageLoadStamp( Params0, Params1, Params2, Params3);
107 : Result := ImageStampConfig( Params0, Params1, Params2, Params3, Params4, Params5, Params6);
108 : Result := ImageBitBlt( Params0, Params1, Params2, Params3, Params4, Params5);
109 : Result := ImageDrawShadow( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7, Params8);
110 : Result := ImageFontBox( Params0, Params1, Params2, Params3, Params4, Params5, Params6, Params7, Params8);
111 : Result := ImageColorBox( Params0, Params1, Params2);
112 : Result := ImageGetRectArea( Params0, Params1);
113 : Result := ImageConvToHSL( Params0, Params1, Params2, Params3);
114 : Result := ImageColorCircle( Params0, Params1, Params2, Params3, Params4);
115 : Result := ImageStampUpdateBuffer( Params0);
116 : Result := ImageGetBoundery( Params0, Params1, Params2, Params3, Params4, Params5, Params6);
117 : Result := ImageStamp( Params0, Params1, Params2);
ELSE Result := FALSE;
END;
END;
END;