Visse bit fra seriel porten

og??? hvad er problemet

problemet er at den ikke viser bit'ne, men et bogstav...

De bits du taler om, er det COM (n) status bits (RTS, DTR osv.) eller er det DATA-bits vi taler om ?

Et eller andet sted på min HDD har jeg en komplet Delphi-pakke, der kan sende/modtage bits/data fra en seriel-port (COM N) og vise status'en (RTS etc.)
- den er vist nok interruptstyret. Jeg skal grave både i min hukommelse (for lidt RAM) og på min HDD for at finde den. Lige nu er jeg udenbys, men melder tilbage mandag / tirsdag.

hmmm jeg vil tro det er Data-bits jeg skal have fat i...

Prøv at gå ind på: http://www.swissdelphicenter.ch/en/showcode.php?id=841 som en nødløsning- eller kommer pakken tirsdag / onsdag ...

Check lige denner her osse: http://www.swissdelphicenter.ch/en/showcode.php?id=483

Du skal jo konvertere det du læser til binær før du adder til din memo.

ja men hvordan gør jeg det???

Jeg har lige klyttet det her sammen.  Håber at du kan bruge det....

procedure TForm1.Button1Click(Sender: TObject);
begin
  meOutputText.Text := meOutputText.Text + TextToBin(edInputText.Text);
end;

Function TForm1.CharToBin(aChar: Char): String;
Var
  n : Integer;
  tmp : String;
Begin
  tmp := '';
  For n := 0 to 7 Do
    Begin
      If (Byte(aChar) And $01) = $01 Then
        tmp := '1' + tmp
      Else
        tmp := '0' + tmp;
      aChar := Char(Byte(aChar) SHR 1);
    End;
  Result := tmp;
End;

function TForm1.TextToBin(aStr: String): String;
Var
  i : Integer;
begin
  For i := 1 To Length(aStr) Do
    Begin
      ShowMessage(aStr[i] + '=' + CharToBin(aStr[i]) + #13#10 +
                  'ASCII('+IntToStr(Ord(aStr[i]))+')' + #13#10 +
                  'Hex: $' + IntToHex(Ord(aStr[i]), 2));
      Result := Result + CharToBin(aStr[i]);
    End;
end;

Som du sikkert kan gætte, så er der på formen 3 components:
- 1 TButton, der hedder Button1
- 1 TEdit, der hedder edInputText
- 1 TMemo, der hedder meOutputText

NIP

Hej,

Der er en component, som hedder CPORT260.ZIP. Jeg kan ikke huske fra hvilken adresse på internettet jeg har fået/downloaded den. Men brug en søgemaskine (SOL, YAHOO eller GOOGLE), så finder i den og download den. Den er bare suveræn.

Der er fuld doku, installationsvejledning, og er direkte brugbar derefter.