NrComm Lib

[freddygloves]

Hallo,

muss zwar nochmal meine Com-Port Konfig seitens Delphi sowie seitens meines Atmels bzw. dessen Programms abchecken. Weil irgendwie tut das nicht so wie ich will.

Für mein Verständnis
habe es bisher so versucht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var decVal:AnsiString;
c_output:AnsiChar;
begin
  decVal:=Edit1.Text;
  c_output:=AnsiChar(StrToInt(decValue)); 
  ApdComPort1.Output:= c_output;
end;

Habe da ein wenig rum versucht mal mit Ansi und ohne und so weiter...

Wie schon gesagt für mein Verständnis:
Ich lese nun den Wert 128 ein --> entspricht laut Ansi Tabelle '€'
das bedeutet von seitens meines Laptop müssten die 8 Datenbits doch so aussehen.
1000 0000bin = 128dez = '€'

Auszug aus meinem C51-Code ohne Interrupts bisher noch

Code:

...
WHILE(RI==0);
zeichen=SBUF; //Speichern des Bufferinhalt in char zeichen
RI=0;
Port0=zeichen; //Inhalt Variable zeichen an Port0 ausgeben

Also müsste doch nun auf Empfangseite in der Variable zeichen dementsprechend der Hexwert 80hex für 128dez stehen.

Ich bin mir nicht ganz sicher ob für meine Aufgabe die AsyncPro bzw. NrComm die richtige Wahl sind. Ich habe später ein haufen Byte-Commands die übertragen werden müssen und ich tue mir schon bei einem schwer...

[ChrisE]

Zitat von freddygloves:

Hallo,
muss zwar nochmal meine Com-Port Konfig seitens Delphi sowie seitens meines Atmels bzw. dessen Programms abchecken. Weil irgendwie tut das nicht so wie ich will.

Das wäre auf jedenfall das erste, dass du testen solltest. Ich würde auch immer zur Validierung ein Programm empfehlen, dass sicher Funktioniert. Ich bevorzuge in Fällen der RS-232-Kommunikation z.B. HTerm

Zitat von freddygloves:

Für mein Verständnis
habe es bisher so versucht

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var decVal:AnsiString;
c_output:AnsiChar;
begin
  decVal:=Edit1.Text;
  c_output:=AnsiChar(StrToInt(decValue)); 
  ApdComPort1.Output:= c_output;
end;

Habe da ein wenig rum versucht mal mit Ansi und ohne und so weiter...

Bei deisne Tests kann ja schon einiges neben raus gehen. Versuche die Probleme die du hast zu teilen. Um mit dem COM-Port vertraut zu werden, sollte sich an den "anderen" veränderbaren so wenig wie möglich ändern (Char / Bytefolge / Ansi / Unicode - gedöhns). Schick doch Hard-Coded ein Byte / eine Bytefolge rüber. z.B.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
const
  THE_SIGN: AnsiChar =  #$80;//= 128dez = '€';
begin
  ApdComPort1.Output:= EURO_SIGN;
end;

Sprich, mach eines nach dem anderen. Wenn du es mal schaffst ein Hard-Kodiertest Zeichen zu senden, dann kann du dir als nächstes Überlegen, wie du unterschiedliche Zeichen(folgen) sendest.

Zitat von freddygloves:

Ich bin mir nicht ganz sicher ob für meine Aufgabe die AsyncPro bzw. NrComm die richtige Wahl sind. Ich habe später ein haufen Byte-Commands die übertragen werden müssen und ich tue mir schon bei einem schwer...

Wenn du viel zu übertragen hast, macht das doch kaum noch einen Unterschied zu einem Byte Kannst du eins - kannst du viele. Also das eine sauber lernen wie es geht, dann kannst du auch viele Übertragen.

Gruß, Chris

BTW:

Zitat von freddygloves:

Also ich verwende Delphi XE Architect bei mir zuhause und im Unternehmen haben wir Delphi XE Professional.

WOW - nicht schlecht. Das war mal ne Stange Geld.

[freddygloves]

Ok,
muss des ganze nommel probieren.
Einen hard codierten Wert habe ich schonmal ausprobiert.
Aber wie schon gesagt. Jetzt erstmal schauen ob die Settings stimmen.
Baudrate, No-Parity etc... für den Versuch.
Werde da mal weiter berichten...

BTW:
Der Architect ist ne Trial und begrenzt...
Aber das Lapi vom Geschäft kann ich dann später weiterverwenden und da ist das Proffesional drauf.
Habe es nur bei mir auf em Laptop mal installiert, weil unter XP die USB-RS232 Konverter laufen und der Treiber für Win 7 sprich "Geschäftslaptop" noch nicht drauf ist...

[himitsu]

Welchen Typ hat denn ApdComPort1.Output ?

Zitat von freddygloves:

Der Architect ist ne Trial und begrenzt...

Hatte ich mir schon gedacht, also dann wünsch ich dir mal, daß du alles in den 30 Tagen fertigbekommst.

(PS: eine Mail an [e-mail] und eventuell verlängern die einem die Trial, ansonsten kannst'e ja privat immernoch für ~150€ die "XE Starter"-Version nehmen, also das Upgrade)

[freddygloves]

Manchmal ist es leichter als man denkt.

Ok 1. Problem war mal ne falsche Baudrate seitens meines Laptop. Klar Microcontroller geht von 9600 Baud aus Laptop hämmert mit 19200 auf den guten ein

Zu der Frage ApdComPort1.Output will einen AnsiChar haben.

im Endeffekt funzt des jetzt viel leichter. Danke mit dem Tipp so wenig wie möglich zu casten bzw. umzuwandeln.

Hab hier noch ein cooles Tool anstelle von HTerm (konnte da nur Zeichen generieren und mal gucken was so mein Microcontroller macht aber trotzdem Danke war auch schon hilfreich).
Und zwar nämlich den Free Serial Port Monitorhttp://www.heise.de/software/downloa..._monitor/26030

Hat mir auf jeden Fall geholfen um mal zu sehen was da so hin und her geschickt wurde...

Naja auf jeden Fall mein Code fürs Senden sieht jetzt so aus:

Delphi-Quellcode:

//var counter:integer=0;
procedure TForm1.Button1Click(Sender: TObject);
var myInt:integer;
begin
    //inc(counter);
    myInt:=StrToInt(Edit1.Text);
    ApdComPort1.Output:=AnsiChar(myInt);
end;

Und fürs Empfangen sieht er so aus:

Delphi-Quellcode:

procedure TForm1.EmpfangenClick(Sender: TObject);
var C:AnsiChar;
begin
  C := ApdComPort1.GetChar;
  Edit2.Text:=IntToStr(Ord(C));
end;

Das ganze funktioniert ja schon mal bin jetzt mal happy und lass es für heute gut sein.

BTW:
Um meine Lizens brauch ich mir keine Sorgen machen wie schon gesagt, unser Unternehmen stellt mir auch noch einen Laptop für meine Technikerarbeit, da ist Delphi XE Professional drauf.
Ich habe bis Mai 2012 Zeit die ganze Sache zu programmieren. Aber ich dachte ich fang jetzt mal mit Üben an, um vertraut mit Delphi zu werden, bin immerhin Elektroniker und kein ITler bzw. Programmierer. Wobei man heute echt alles als Elektroniker können sollte
Aber ich glaub ich schreib die Trotzdem mal anwegen der Lizensverlängerung. Wir Schwaben sagen immer "Oim gschenkta Gaul, schaut ma id ins Maul"
Danke für den Tipp.

[himitsu]

Die ersten widrigen Erfolge kannst'e ja nun vorweisen ... da kann's doch nur noch besser werden.


und Willkommen im Club
/me = gelernter Industrieelektroniker

[ehX]

Vielleicht als kleiner Tipp am Rande:

Für RS232-Geschichten bietet sich für das Debugging auch immer an, einen Serial Port Monitor als Progrämmchen dazwischenzuhängen.
Oft braucht man sich dann nur ansehen, was über die Schnittstelle läuft und schon wird einem klar, was man falsch gemacht hat
Einen freien Serial Port Monitor gibt es z.B. hier

[freddygloves]

Zitat von freddygloves:

...
Hab hier noch ein cooles Tool anstelle von HTerm (konnte da nur Zeichen generieren und mal gucken was so mein Microcontroller macht aber trotzdem Danke war auch schon hilfreich).
Und zwar nämlich den Free Serial Port Monitorhttp://www.heise.de/software/downloa..._monitor/26030
...

Habe ich ja auch geschrieben

Auf jeden Fall die zwei Tools ersparen viel Ärger