"Превод" C -> Delphi

Здрасти!

Как се "превежда" дефиницията на функция:

DWORD CALLBACK MyFunction(
WCHAR* UserName,
DWORD* Address,
BOOL* Release
);

където:
UserName - Pointer to a Unicode string;

Address
pointer to a DWORD variable;

Release
Pointer to a bool variable.

на Delphi?


Благодаря!

function MyFunction (

   UserName : PWideChar;

   var Addres:caardinal; // var Addres :Pointer //

   var Release:BOOL //var Release:Cardinal 

):Cardinal; stdcall;

------------------------------
I got a COMPILER, and I'm not afraid to use it!

Благодаря!

Дано не прозвучи много нахално, но.....

typedef struct PORT_0 {
HANDLE hPort;
HANDLE hConnection;
PORT_CONDITION dwPortCondition;
DWORD dwTotalNumberOfCalls;
DWORD dwConnectDuration;
WCHAR wszPortName[MAX_PORT_NAME + 1];
WCHAR wszMediaName[MAX_MEDIA_NAME + 1];
WCHAR wszDeviceName[MAX_DEVICE_NAME + 1];
WCHAR wszDeviceType[MAX_DEVICETYPE_NAME + 1];
} PORT_0, *PORT_0;


този код как би 'звучал' на Delphi?

Благодаря!

Има една програмка, някаде по страниците на FreePaskal, mai CtoDelphi се казваше, щот като гледам, още работи ще питаш...

programkata e C2PAS

c2pas... Точно така е, но не генерира много верен код. Поне за Delphi не е, а доколкото си спомням Pascal-а от времето на TurboPascal 3.0... :-) Дали някой си го спомня още...

Наскоро го открих /отново/ в музея на Borladn!

Хей, големи майстори са!!!

А аз си написах програмчето вече и работи без проблем /надявам се/... Благодаря ви за помощта.

Абе да му мислят клиентите!