XProfan

declare fehler%,comi&,t$,n$,erfolg%
cls
comi&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)

if erfolg% <> 0

    Let t$=Schnittstellenfehler
    Let n$=Schnittstelle konnte nicht geöffnet werden,
    oder wird von einer anderen Anwendung verwendet.
    MessageBox(n$,t$,64)
    closecom(comi&)
    end

else

    print Rs232 erfolgreich geöffnet und eingestellt

endif

fehler%=writecom(comi&,chr$(12)+chr$(34))
print Es wurden +str$(fehler%) + Zeichen gesendet
@ComError(comi&)

whilenot 0

    waitinput

wend

closecom(comi&)

Procedure FnOpenCom;
var C1:Char255;
I:LongInt;
IPar1:integer;
Begin
LesePara(ParStack,,,1);
StrCopy(C1,pchar(ParStr));
LesePara(ParStack,,,0);
IPar1 := ParLng;
LesePara(ParStack,),0);
GCID := CreateFile(C1,GENERIC_WRITE or GENERIC_READ,
0,NIL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,LongInt(0));

If GCID > 0 Then Begin

    SetUpComm(GCID,IPar1,ParLng);
    End;
    ParLng := GCID;
    ParTyp := 3;
    Found := True;
    End;
    Procedure FnSetCom;
    var C1:Char255;
    CID: LongInt;
    DCB:TDCB;
    Begin

    If (XPos(,,Par) = 0)

        OR (XPos(,,Par) > XPos(),Par)) And (XPos(),Par) > 0) Then Begin
        // Nur ein Parameter: ALte Version!
        CID := GCID;
        LesePara(ParStack,),1);
        StrCopy(C1,pchar(ParStr));
        end else begin
        // Neue Version
        LesePara(ParStack,,,0);
        CID := ParLng;
        LesePara(ParStack,),1);
        StrCopy(C1,pchar(ParStr));
        End;
        ParLng := -1;

        If BuildCommDCBA(C1,DCB) Then Begin

            If SetCommState(CID,DCB) Then Begin

                ParLng := 0;
                End;
                End;
                ParTyp := 2;
                Found := True;
                End;