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.