CPort: Comport auslesen DOS-> Delphi

[Freiwilderer]

hi,
ich habe ein DOS Programm, dass Daten über den ComPort von einem Windows CE Gerät runter lädt.
Das muss ich jetzt in Delphi umsetzen...
hier mal der Basic Code:

Code:

Close #96
Open "COM2:9600,N,8,1,CS,DS" As #96
ITry = 0
Do While ITry < 10 AND IFound = 0
    ITry = ITry + 1 
    Print #96, Chr$(6) + Chr$(13);
    Call WaitSec(0.5)
    If Not EOF(96) Then
        ATmp = Input$(1,#96)
        If ATmp = Chr$(6) Then IFound = 1
    end if
Loop

Es wird also erst der Comport als #96 geöffnet, anschließend Chr6 und Chr13 geschrieben und dann ausgelesen.
... leider funktioniert das in Delphi nicht.

Delphi-Quellcode:

   try
      iTry := 0;
      bFound := False;
      AComPort:=Concat('COM',Edit1.Text);
      tmpWeightString := '';
      FirstStart:= Now();

      ComPort := TComport.Create(fHandscannerCOM);
      ComPort.Port := AComPort;
      ComPort.BaudRate := br9600;
      ComPort.Parity.Bits := prNone;
      ComPort.DataBits := dbEight;
      ComPort.StopBits := sbOneStopBit;
           ComPort.Open;
      comport.WriteStr(CHR(6)+ CHR(13));
      sleep(500);

      i:=1;
      while (not bFound) and (i< 10) do
      begin
         AStr := '';
         inc(i);
                        ComPort.ReadStr(AStr,1);
         if Astr='' then
            Astr:=IntToStr(i);
         Memo1.Lines.Add(AStr);

         if AStr = CHR(6) then
            bFound := True;   
         sleep(10);
      end;
   finally
      FreeAndNil(ComPort);
   end;

Kann mir jemand da einen Tip geben?
bei einem anderen Gerät (einer Waage) habe ich das auslesen in ähnlicher form bereits hin bekommen ...
Interessant wäre auch, was CS und DS Bedeuten soll.

Über Hilfe würde ich mich sehr freuen.

Mfg

[gammatester]

Zitat von Freiwilderer:

Interessant wäre auch, was CS und DS Bedeuten soll.

Erste Vermutung bei seriellen Schnittstellen ist doch CTS und DSR, und tatsächlich ergibt ein paar Sekunden Suche:

Zitat von FreeBASIC-Referenz:

CSn Setze die CTS-Dauer (in ms) (n>=0), 0 = abschalten, Standard = 1000
DSn Setze die DSR-Dauer (in ms) (n>=0), 0 = abschalten, Standard = 1000

und auf http://www.elektronik-labor.de/RS232/RS232_3_2.htm

Zitat:

CS,DS,CD: ohne eine Zusatzangabe bewirken diese Parameter,dass die Eingangsleitungen CTS, DSR bzw. DCD nicht beachtet werden. Für jede dieser Eingangsleitungen kann eine Wartezeit n in ms angegeben werden, während der auf ein Signal eintreffen muss.

Beispiel: OPEN "COM1:9600,N,8,1,RS,CS,DS,CD" as #2

Beim Öffnen bleibt RS zurückgesetzt, und keine der Handshake-Eingangsleitungen wird beachtet.

[Freiwilderer]

Naja, gedacht hatte ich mir das auch schon... Allerdings gibt es bei CPort scheinbar keine Möglichkeit diese Werte zu verändern. Weswegen ich mir über deren Bedeutung nicht sicher bin.

[gammatester]

Zitat von Freiwilderer:

Naja, gedacht hatte ich mir das auch schon... Allerdings gibt es bei CPort scheinbar keine Möglichkeit diese Werte zu verändern. Weswegen ich mir über deren Bedeutung nicht sicher bin.

Also zumindest in meiner Uraltversion 2.01 kann man das im Objektinspektor/Flowcontrol sehr schön ein- und ausschalten; und mit der mitgelieferten Form sogar zur Laufzeit via Dialog. Was bei den neuen Schnickschnack-Versionen nicht mehr möglich ist kann ich nicht sagen.

[Freiwilderer]

Ich glaub auch gar nicht mal unbedingt, dass es daran liegt, sondern vielleicht eher an der Art des auslesens ... Wie gesagt, die Waage, die ich hier stehen hab, kann ich ansprechen. (Auch ohne CS und DS vorher einzustellen.)

[Klaus01]

CTS, DSR auch, wenn ich mich nicht täusche, unter HardwareHandshake bekannt.
Wenn der das Windows CE Gerät so eingestellt ist, dass HardwareHandshake verlangt wird sollte Dein Programm das auch unterstützen.

Grüße
Klaus