Umstig von BDS-2006 -> BDS-2010

[Schucki]

Zitat von RWarnecke:

Wo genau hackt es denn ?

Die Daten werden mit...

Delphi-Quellcode:

function WriteComm( var buf; ByteCount: integer ): DWORD;
begin
  FillChar( TXOverLap, SizeOf( TXOverLap ), 0 );
  WriteFile( hCom, Buf, ByteCount, Result, @TXOverLap );
end;

...über das ComPort ausgesendet. Nur wird immer ein #0 Byte eingefügt...

43 00 53 00 44 00

Nun gehe ich davon aus das es eindeutig an dieser UNICODE Geschichte liegt.


Gruß Frank

[jaenicke]

Ja, richtig. Denn bei Ansizeichen ist das jeweils zweite Byte in einem Unicodestring immer Null.

Viel hin- und herzukonvertieren sollte da nicht sein. Solange du den String als Datencontainer nutzt, sollte es immer explizit ein AnsiString sein. Erst, wenn du damit etwas machst, muss einmal umgewandelt werden (und natürlich umgekehrt, wenn du Daten an den COM Port übergibst).

Wo da mehr konvertiert werden könnte, fällt mir gerade gar nicht ein.

[Schucki]

Ja danke für die Antworten...

Und wie bekomme ich nun das Programm dazu alle Daten nicht als UNICODE auszusenden?

Gruß Frank

[himitsu]

Indem du alles was als ANSI versendet werden soll auch als ANSI bereitstellst?

Und genau deswegen sollten Daten, die exportiert/versendet/gespeichert werden sollen
auch nur als statische Typen deklariert sein, damit sich dort niemals etwas verändern kann.

also kein Integer, Cardinal, Char, PChar, String, NativeInt, NativeUInt, Pointer usw.

[hoika]

Hallo,

TXOverLap als AnsiString definieren.


Heiko

[Schucki]

Hallo und Danke für Eure Antworten.
So wie ich es nun verstanden habe ist es wohl so das ich meinen gesamten Quelltext durchgehen kann und alle Typen vom Typ String auf AnsiString umstellen muss damit es wieder funktioniert wie es soll.

Zumindest alle Sachen wo ich 8bit Zeichen als Daten verarbeite.

EDIT:

Hmm irgendwie habe ich noch nicht verstanden wann ich nun auf den Typen String und wann auf den Typen AnsiString zu setzen ist. Ich habe gut 80 Hinweise das ich wild hin und her kopiere.

[DCC Warnung] MyTools.pas(1149): W1057 Implizite String-Umwandlung von 'AnsiString' zu 'string'
[DCC Warnung] MyTools.pas(1149): W1058 Implizite String-Umwandlung mit potenziellem Datenverlust von 'string' zu 'AnsiString'

Delphi-Quellcode:

...
  Result:=Result+IntToHex(bytCrc,2)+']';
...

Wie muss das behandelt werden damit die verschwinden?

Gruß Frank

[Schucki]

Zitat von himitsu:

Indem du alles was als ANSI versendet werden soll auch als ANSI bereitstellst?

Und genau deswegen sollten Daten, die exportiert/versendet/gespeichert werden sollen
auch nur als statische Typen deklariert sein, damit sich dort niemals etwas verändern kann.

also kein Integer, Cardinal, Char, PChar, String, NativeInt, NativeUInt, Pointer usw.

Ich muss das nochmal aufgreifen da ich allem Anschein nach noch Probleme habe ich kann zwar Sachen aussenden aber die Anwendung läuft nicht rund. Ich habe auch noch 312 Warnungen wegen ANSI<>UNICODE Wandlungen. Das wird der Grund sein

Wie sieht eine Verwendung von statischen Variablen in Delphi aus? Kenne das bisher nur von C.

Bitte helft mir mal auf die Sprünge.
Gruß Frank

[jaenicke]

Zitat von Schucki:

Wie sieht eine Verwendung von statischen Variablen in Delphi aus? Kenne das bisher nur von C.

Gemeint ist hier nicht das selbe.
Wenn du in Delphi den Typ PChar benutzt, kann das je nach Delphiversion PAnsiChar oder PWideChar sein. Und String kann AnsiString oder UnicodeString sein. Und auch solche Metatypen wie Integer sind nicht auf eine bestimmte Größe festgelegt.

Mit statisch war hier gemeint, dass du überall explizit PWideChar, LongInt usw. nutzen solltest, damit es keine Missverständnisse geben kann.

Was die Warnungen angeht, da sind vor allem welche wichtig, in denen steht bedenkliche Typumwandlung.

[Schucki]

Hallo!

Ok dann muss ich mich nun darum kümmern das alle Sachen wo ein AnsiString mit Funktionen bearbeitet wird die einen String zurück geben auch wieder in AnsiString gewandelt werden?

Delphi-Quellcode:

...
var astrTmp:AnsiString;

astrTmp:=AnsiString(IntToString(123)));
...

Das wird eine Weile Dauern bis ich alles durch habe...

Gruß Frank