![]() |
AW: Vermutlich Hex Daten Umwandeln
So wie ich die Daten auf dem Screenshot sehe, würde ich sagen, dass IBExpert einfach die Steuerzeichen ausblendet. Irgendwie so:
Delphi-Quellcode:
Die in Westeuropa verwendete 8-Bit-Kodierung („ANSI“) ist übrigens Windows-1252 und nicht ISO-8859-1, weil bei letzterer bei $80-$9F noch mehr Steuerzeichen liegen, die keinen interessieren, und man mit ISO-8859-1 nicht in der Lage ist, einen französischen Text oder vernünftige Interpunktion zu speichern. Unicode U+0 bis U+FF entsprechen aber ISO-8859-1.
var
b: Byte; s: string begin for b in FieldByName('bla').AsBytes do if b < 32 then s := s + Char(b); end; |
AW: Vermutlich Hex Daten Umwandeln
@Dumpfbacke,
Zitat:
![]() Da kommt genau Privat raus. |
AW: Vermutlich Hex Daten Umwandeln
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE} {$R *.res} uses System.SysUtils; function BytesToHexView(const ABytes: TBytes): string; var hex, str: string; idx, len, len2: Integer; b: Byte; begin Result := string.Empty; len := Length(ABytes); hex := string.Empty; str := string.Empty; if len mod 16 = 0 then len2 := len else len2 := len + 16 - len mod 16; for idx := 1 to len2 do begin if idx <= len then begin b := ABytes[idx - 1]; hex := hex + IntToHex(b, 2) + ' '; if b < 32 then str := str + '.' else str := str + Chr(b); end else begin hex := hex + ' '; str := str + ' '; end; if idx mod 16 = 0 then begin if not string.IsNullOrEmpty(Result) then Result := Result + sLineBreak; Result := Result + hex + '| ' + str; hex := string.Empty; str := string.Empty; end; end; end; begin try Writeln(BytesToHexView([ // $05, $03, $01, $01, $04, $02, $00, $00, $00, $00, $00, $00, $01, $01, $04, $02, // $00, $00, $00, $00, $00, $00, $01, $01, $04, $02, $00, $00, $00, $00, $00, $00, // $01, $01, $04, $02, $00, $00, $00, $00, $00, $00, $01, $01, $04, $02, $00, $00, // $00, $00, $00, $00, $01, $01, $04, $02, $00, $00, $00, $00, $00, $00, $01, $01, // $04, $02, $06, $00, $00, $00, $50, $00, $72, $00, $69, $00, $76, $00, $61, $00, // $74, $00, $00, $00, $02, $01, $00, $01, $FA, $B8, $8A, $42, $FB, $53, $48, $80])); except on E: Exception do Writeln(E.ClassName, ': ', E.Message); end; Readln; end.
Code:
05 03 01 01 04 02 00 00 00 00 00 00 01 01 04 02 | ................
00 00 00 00 00 00 01 01 04 02 00 00 00 00 00 00 | ................ 01 01 04 02 00 00 00 00 00 00 01 01 04 02 00 00 | ................ 00 00 00 00 01 01 04 02 00 00 00 00 00 00 01 01 | ................ 04 02 06 00 00 00 50 00 72 00 69 00 76 00 61 00 | ......P.r.i.v.a. 74 00 00 00 02 01 00 01 FA B8 8A 42 FB 53 48 80 | t.......ú¸?BûSH? |
AW: Vermutlich Hex Daten Umwandeln
Zitat:
Ja habe ich funktioniert aber leider auch nicht. |
AW: Vermutlich Hex Daten Umwandeln
Zitat:
Hallo Schokhase, vielen Dank für den Code von Dir. Wenn das so gehen würde wäre es einm Traum und ich würde endlich weiterkommen mit meinen Programm. Genau das Ergebnis möchte ich haben. Ich habe jeodch noch ein Problem damit. Wie rufe ich die Funktion denn auf ? Ich hole mit die Daten aus der Datenbank (Memo Feld) und packe die in ein String aber die Funktion erwarete das ganze ja in Byte form. Kannst du mir hier noch mal auf die sprünge helfen ? Ich verzweifele so langsam an dem Problem. Danke Tanja. |
AW: Vermutlich Hex Daten Umwandeln
Zitat:
Ist es sowas wie XYZField.AsString? Wenn ja, versuch mal anstattdessen XYZField.AsBytes. |
AW: Vermutlich Hex Daten Umwandeln
Schau Dir bitte mal
![]() Daneben enthält sie eine automatische "Inhaltserkennung" und kann von daher auch HTML, Text, Bilder ... ggfls. korrekt anzeigen. Ihr ist es quasi egal, was man ihr an Inhalt unterschiebt. Sie schaut, ob's was bekanntes ist, wenn nein erfolgt die Anzeige in der von Dir gewünschten Form. Natürlich ist das konfigurierbar, so dass die Anzeige auch grundsätzlich auf die von Dir gewünschte Form eingeschrämkt werden kann. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:52 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz