DLL from Turbo Pascal into VC++

[dassa]

turbo pascal dll datei

Hi,
I need your help in order rewrite a DLL from Turbo Pascal into VC++. How to?
Thanks


library DataIn;

var

ez-outO,ez-inO,ez-qsO .

text;

function lesen: integer;export;

{ Funktion zum Einlesen von Daten}

var

i,x,qs,spoll-byte ; integer;
butter: string[20) ;
z ; string[6] ;
a ; real;

begin
writeln(ez-outO, 'Trigger 709') ;
writeln(ez-outO, 'Enter 709') ;
readln(ez-inO,butter) ;

x := pos('E',butter);
z ;= copy(butter,x-6,6);
val(z,a,i);
lesen ;= round(a*100) ;

{ Auslosen einer Messung}
{ Bus fUr Da.tenaustausch vorberei ten}
{ Inhalt des Datenbusses in Puffervariable}
{ ablegen (es werden 20 Byte gelesen) }
{ nach dem Exponentzeichen suchen}
{ die 6 Zeichen vor dem Exponentzeichen}
{ herauskopieren und in Zahlenwert umwandeln}
( Gleitkommazahl in Integer verwandeln und}
{ an die Funktion Ubergeben}

readln(ez-qsO,qs) ;

if

(qs < 0)

then lesen

.= qs;

{ Fehlerbehandlung}

end;

function ende integer;export;

{ Funktion zum Schließen der Dateien}

begin
close(ez-outO) ;
c1ose(ez-inO) ;
close(ez-qsO) ;
ende := 1;

end;

exports
lesen index 1,
ende index 2;

begin
assign(ez qsO, 'EZQSO') ;
reset(ez-qsO) ;
assign(ez-outO, 'EZOUTO') ;
rewrite(ez-outO) ;
assign(ez-inO, 'EZrNO' ) ;
reset (ez-inO) ;
writeln(ez-outO, 'Reset 7') ;

{ Hauptteil offnet beim "linken" die Dateien}

{ Vorbereitung der DatenUbertragung}

end.

 

[snkhan]

dll turbo pascal

What i can see here is other language but you need two functions in C++ called inport(baseaddress), outport(baseaddress,data), for all ur functions.