Hoi Patrick,
Ziet er mooi uit.
Gebruik je ook een AIRLITE DLL CONTROL in je software?
Ik heb al een begin gemaakt in Delhi maar wie weet heb jij al een complete DLL in Delphi hiervoor?
Code:
unit AirLite;
interface
//uses
// AirLite_Types;
const
tagsdll = 'Airlite.dll';
type
PVersion_st = ^TVersion_st;
TVersion_st = record
major,
minor,
build,
revision : integer;
end;
type
DWORD = LongWord;
AIRLITE_HANDLE = DWORD;
// AIRLITE_API char* airlite_library_version(Version_st* version );
function airlite_library_version(version: PVersion_st): PAnsiChar; stdcall; external tagsdll;
{******************************************************************************/
/* SETUP */
/******************************************************************************}
function airlite_open(remotehost: PAnsiChar; udp_recv_port, udp_send_port: Word): AIRLITE_HANDLE; stdcall; external tagsdll;
// AIRLITE_API AIRLITE_HANDLE airlite_open(char* remotehost, unsigned short udp_recv_port,unsigned short udp_send_port);
function airlite_close(handle: AIRLITE_HANDLE): Integer; stdcall; external tagsdll;
// AIRLITE_API int airlite_close(AIRLITE_HANDLE handle);
(*
function airlite_register_callback(handle: AIRLITE_HANDLE; callback: AIRLITE_CB; userdata: Pointer): Integer; stdcall; external tagsdll;
// AIRLITE_API int airlite_register_callback(AIRLITE_HANDLE handle, AIRLITE_CB callback, void * userdata);
*)
{******************************************************************************/
/* MISCELLANEOUS */
/******************************************************************************}
function airlite_get_last_error(handle: AIRLITE_HANDLE): PAnsiChar; stdcall; external tagsdll;
// AIRLITE_API char* airlite_get_last_error(AIRLITE_HANDLE handle);
implementation
end.
TEST...
Code:
procedure TfrmAirLiteProject.Button1Click(Sender: TObject);
var
C: Integer;
S: PAnsiChar;
V: TVersion_st;
H: AIRLITE_HANDLE;
begin
S := airlite_library_version(@V);
Label1.Caption := string(S);
// H := airlite_open('127.0.0.1', 19550, 19551);
H := 0;
H := airlite_open('127.0.0.1', 19550, 19551);
Label2.Caption := 'AIRLITE_HANDLE: ' + H.ToString;
S := airlite_get_last_error(H);
Label3.Caption := 'ERROR: ' + string(S);
if (H <> 0) then C := airlite_close(H) else C := -1;
Label4.Caption := 'CLOSE: ' + C.ToString;
end;
Helaas is de persoon die dit graag wou verdwenen en ik heb geen Airlite mengpaneel
Nu gewoon met Shortcuts gedaan.
Groetjes.
Bookmarks