DLL iz Turbo Pascal u VC

[Dassa]

Bok,
Trebam vašu pomoć kako bi prepisati Turbo Pascal u DLL iz VC .Kako?
HvalaDataIn biblioteka;

var

Outokumpu-ez, ez-INO, ez-QSO.

teksta;

Pročitajte function: Integer; izvoz;

() Funkcija za čitanje podataka

var

i, x, qs, SPOLL bajta, cijeli broj;
maslac: string [20);
Z; string [6];
; real;

započeti
WriteLn (ez-Outo, 'Trigger 709');
WriteLn (ez-Outo, 'Unesi 709');
readln (ez-INO, maslaca);

x: = poz ( 'E', maslac);
Z; = copy (maslac, x-6, 6);
Val (z, A, I);
čitanje; = round (* 100);

Pokreće mjerenja ()
(Autobusni für Da.tenaustausch pripremni th)
(Definicija podataka bus u buffer variable)
(Store (to će se čitati 20 bajtova))
(Rezultati) znakova nakon eksponent
(6 znakova prije eksponent znaka)
(Herauskopieren i transformirati numerička vrijednost)
(Floating point to integer transformacija)
Presuditi da funkcija ()

readln (ez-QSO, QS);

ako

(QS <0)

zatim pročitajte

QS .=;

(Error handling)

end;

end function integer; izvoz;

(Funkcija za zatvaranje datoteke)

započeti
close (ez-Outo);
c1ose (ez-INO);
close (ez-QSO);
Ende: = 1;

end;

izvoz
Pročitajte indeks 1,
end index 2;

započeti
dodijeliti (ez QSO 'EZQSO');
reset (ez-QSO);
dodijeliti (ez-Outo, 'EZOUTO');
prepisati (ez-Outo);
dodijeliti (ez-INO, 'EZrNO');
reset (ez-INO);
WriteLn (ez-Outo, 'Reset 7');

(Glavni tijelo otvara "left" datoteke)

(Priprema za prijenos podataka)

kraj.

 

[snkhan]

Što ja mogu vidjeti ovdje je drugi jezik, ali ako ste isključili dvije funkcije u C zove inport (BaseAddress), outport (BaseAddress, podaci), za sve ur funkcije.