exemples en C ou Delphi : comment convertir en PureBasic ?

[Golfy]

Ras le bol des exemples en C, Delphi... même en Pascal ! et notre langage alors ?

Enfin, c'est surtout que je ne sais pas transformer ceci vers un code PureBasic

Code : Tout sélectionner

Déclarer les fonctions du D2XX
function FT_OpenEx(pvArg1:string; dwFlags:Dword; ftHandle:Pointer):FT_Result; stdcall; 
External FT_DLL_Name name 'FT_OpenEx';
function FT_Close(ftHandle:Dword):FT_Result; stdcall; External FT_DLL_Name name 
'FT_Close';
function FT_GetComPortNumber(ftHandle:Dword ; 
lplComPortNumber:Pointer):FT_Result; stdcall; External FT_DLL_Name name 
'FT_GetComPortNumber';

Code : Tout sélectionner

Exemples en delphi 7:
Utilisation du CBUS BIT BANG MODE pour activer l'une ou l'autre des sorties:
(voir la note d'application AN232R-01 de FTDI)
Utiliser les fichiers: D2XXUnit.pas et iotst.pas
Activé la sortie du compteur 1:
passed:= write_value(1,1,'Interface USB -> Compteur',);
passed est un boolean et retourne true si l'opération est un succès.
Ou:
FT_SetBitMode(Handle, 0x11, 0x20) pour CPT 1

Merci pour votre aide, le but étant de fiabiliser les statistiques provenant des compteurs TeleInfo (avec le montage CartElectronic).

Des fois, il faudrait un convertisseur automatique Delphi --> Purebasic, etc.