|
ｿｽ@ｿｽｿｽCｿｽｿｽｿｽｿｽPascalｿｽﾖの擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
ｿｽｿｽｿｽｿｽｿｽ 2005/03/21(ｿｽｿｽ) 16:06:58
ｿｽｿｽｿｽｿｽDLLｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾟのサｿｽｿｽｿｽvｿｽｿｽｿｽRｿｽ[ｿｽhｿｽｿｽｿｽbｿｽﾅ擾ｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽﾌゑｿｽ
ｿｽｿｽｿｽｿｽｿｽDelphi(6 personal)ｿｽｿｽｿｽｿｽgｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽﾄゑｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
ｿｽGｿｽｿｽｿｽ[ｿｽiｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽNｿｽZｿｽXｿｽ癆ｽｿｽjｿｽｿｽｿｽﾅて止ｿｽﾜゑｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽﾌコｿｽ[ｿｽhｿｽｿｽDelphiｿｽﾅ難ｿｽｿｽｿｽｿｽ謔､ｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾉはどのようｿｽﾉゑｿｽｿｽｿｽﾎゑｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽ蛯､ｿｽｿｽｿｽH
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧｢ｿｽｿｽｿｽﾜゑｿｽｿｽB
--------------------------------------------------------------
{C}
enum X_STATUS {
X_SUCCESS = 0,
X_FAIL = 0x31000001,
};
typedef void (__cdecl *X_CALLBACK)(X_HANDLE handle, void *context);
typedef struct X_CALLBACK_OPS
{
X_CALLBACK cbConnect;
X_CALLBACK cbDisconnect;
} X_CALLBACK_OPS;
DllExport X_STATUS X_Init(X_HANDLE *handle, unsigned short xid, void *context, X_CALLBACK_OPS *ops);
--------------------------------------------------------------
{Delphi (object pascal)}
type
X_STATUS = (
X_SUCCESS = 0,
X_FAIL = $31000001,
);
type X_CALLBACK = procedure(handle:X_HANDLE; context:Pointer); cdecl;
type
X_CALLBACK_OPS = record
cbConnect : ^X_CALLBACK;
cbDisconnect : ^X_CALLBACK;
end;
type PX_CALLBACK_OPS = ^X_CALLBACK_OPS;
function X_Init(handle:PX_HANDLE; xid:Word; context:Pointer; ops:PX_CALLBACK_OPS) : X_STATUS; stdcall;
external 'Xlib.dll';
--------------------------------------------------------------
