Entwickler-Ecke
Dateizugriff - Hex Zahlen einlesen
Pbg - Sa 05.07.03 21:45
Titel: Hex Zahlen einlesen
Hallo,
ich habe in einer Datei folgende Hex Zahlen
04 03 36 65 52 00
diese Werte möchte ich aus der Datei lesen und mir anzeigen lassen. Die Zahl muesste 3665,52 heissen. Ich dachte es ist real48 (wegen den 6 byte) aber das klappt nicht Ich weiss nicht ob die ersten beiden Zahlen ( 04 03 ) mit dazu gehören. Weiss jemand unter welchen Format diese Zahlen gespeichert sind ?
Danke
MfG
worm - Sa 05.07.03 23:06
Wenn die Zahl 3665,52 heißen soll, glaube ich nicht, dass das Hex-Zahlen sind, sonst würde dort nicht die Folge 36 65 52 drin vorkommen :!:
Um herauszufinden, wie das nun wirklich gespeichert ist, bräuchte man ein paar mehr Beispiele. Hast Du noch welche?
Pbg - Sa 05.07.03 23:39
Hallo,
die Zahl ist wirklich hex habe Sie mit dem Hex Editor gelesen und gebe sie auch selbst ein, aber eben über ein altes dos Programm wo ich nicht weiss wie er es speichert, habe schon integer , strings gefunden nur die Werte mit den er rechnet also Gleitkommazahlen die speichert er so ab :o( . Durch Datei vergleichen habe ich die Stellen gefunden wo der geänderte Wert steht. und an den Zahlen erkennt man es ja auch.
MfG
worm - So 06.07.03 00:06
Hmm, ist dann aber sehr merkwürdig gespeichert. Der scheint das ja dann dezimal zu speichern und immer 4 Bits pro (Dezimal-)Ziffer zu nehmen, sonst würdest Du nicht die richtigen Zahlen dort stehen haben (im Hexeditor).
Man braucht aber trotzdem noch ein paar weitere Beispiele... z.B. 1, 100000, 1.12345, um zu sehen, ob und wie die Position des Kommas gespeichert wird. Irgendwie müssen diese (und andere?) Informationen ja noch in den ersten beiden Bytes gespeichert sein. Dort könnte die Länge gespeichert sein (oder sind die Zahlen generell 0-terminiert wie in dem einen Beispiel?) und auch die Position des Kommas.
Pbg - So 06.07.03 12:30
Hallo,
das ist ein Teil von so einen Satz, der erste Teil ist text 8115944221100. dann ein paar stellen die ich noch nicht getestet habe und dann sind die Zahlen
Quelltext
1:
2:
| 1569,72 9564,71 4301,48
6352,95 3665,62 6952,14 |
Quelltext
1:
2:
3:
4:
| 38 31 31 35 39 34 34 32 32 31 31 30 30 86 21 04
03 25 89 45 00 04 03 15 69 72 00 04 03 95 64 71
00 04 03 43 01 58 00 04 03 63 52 95 00 04 03 36
65 52 00 04 03 16 99 45 00 04 03 69 52 14 00 |
in einer anderen Datei sind die Zahlen 7 Stellig dort beginnden sie mit 04 04 und weiter 98 76 54 30 muß heissen 98765,43. Mit den Zahlen wird in den Programm gerechnet.
MfG
Moderiert von 
Tino: Code-Tags hinzugefügt.
lb - So 06.07.03 14:41
Titel: HEX Zahlen einlesen
Also ich hab probiert ein programm zu Schreiben, was Hexzahlen einliesst. Da kommt aber etwas anderes bei raus als bei dir.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
| procedure TForm1.Button1Click(Sender: TObject);
var
r : real;
i: longint;
p: ^real;
begin
i := StrToInt(Edit1.Text);
p := Addr(i);
r := p^;
label1.Caption := FloatToStr(r);
end; |
In Edit1 wird eine longint Zahl i eingelesen (Hex und Longint laesst sich einfach Konvertieren), dann einen real Pointer der Addresse von i zugeordnet und dem Wert p^ dann wiederum ein Realwert zugeordnet. Da kommt aber etwas anderes heraus als von dir gewuenscht :cry: .
Bei dem von dir gefragtem Format wuerde ich selbst ein kleines Programm schreiben, welches die Werte einliest.
Moderiert von Tino: Delphi-Tags hinzugefügt.
Pbg - So 06.07.03 15:42
Hallo,
Danke Dir ! Meine Zahlen müssen dabei rauskommen. Ich habe wahrscheinlich gefunden wie es gespeichert ist
habe es jetzt so declariert
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| type
TBcd = packed record
Precision: Byte;
SignSpecialPlaces: Byte;
Fraction: packed array [0..3] of Byte;
end;
var Geld1, geld2, geld3 : tbcd; |
beim einlesen dann
Delphi-Quelltext
1:
2:
3:
4:
5:
| type Stammdaten = packed record
zahl1 : longint;
zahl2 : longint;
zahl3 : longint;
u.s.w |
dann
Delphi-Quelltext
1:
2:
3:
| geld1 : tbcd;
geld2 : tbcd;
geld3 : tbcd; |
aber wie wandle ich das nun um, damit ich damit rechnen kann oder es anzeigen.
In der Delphi Hilfe steht TBCDField.AsString er bringt bei mir das er asstring nicht kennt. Bin Neuling in Delphi weiss mit property nichts anzufangen.
MfG
Moderiert von Tino: Delphi-Tags hinzugefügt.
lb - Sa 12.07.03 10:28
Titel: 'HexDaten' einlesen: ein kleines DemoProgramm!
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
| unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
str : string;
const s = '04 03 36 65 52 00';
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
str := s[7] + s[8] + s[10]+ s[11]+'.' + s[13] + s[14] + s[16] + s[17];
Label1.Caption := str;
end;
procedure TForm1.Button2Click(Sender: TObject);
var r : real;
begin
r := StrToFloat(str) + 2.34;
label1.Caption := FloatToStr(r);
end;
end. |
So wuerde ich es machen!! Und wie das Demo zeigt, laesst es sich auch mit der Zahl rechnen!
Moderiert von Tino: Delphi-Tags hinzugefügt.
Pbg - Mi 23.07.03 14:25
Hallo,
Danke für Deine Antwort, kam lange nicht zum Prog.
deshalb jetzt erst meine Antwort.
ich habe es jetzt so gemacht, die Zahlen von der Funktion sind 7 Stellig
die alten waren 6. Ist aber ähnlich. Ich übergebe 4 Zahlen je 1 byte
zb. 64 , 34, 72, 40 (das ist der Inhalt der Bytes in Hex) und rauskommen muss 64347,24
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
| function TForm1.umrechnen(zahl, zahl1, zahl2 ,zahl3 : integer):Currency ;
var
hbyte1: integer;
hbyte2: integer;
h: integer;
h1: integer;
erstezahl : integer;
zweitezahl: integer;
drittezahl: integer;
viertezahl: integer;
summe: integer;
summe1 : Currency;
begin;
h:= zahl div 16;
hbyte2:= zahl - (h * 16);
h1:= h div 16;
hbyte1:= h - (h1 * 16);
erstezahl := (hbyte1 * 10) + hbyte2;
h:= zahl1 div 16;
hbyte2:= zahl1 - (h * 16);
h1:= h div 16;
hbyte1:= h - (h1 * 16);
zweitezahl := (hbyte1 * 10) + hbyte2;
h:= zahl2 div 16;
hbyte2:= zahl2 - (h * 16);
h1:= h div 16;
hbyte1:= h - (h1 * 16);
drittezahl := (hbyte1 * 10) + hbyte2;
h:= zahl3 div 16;
viertezahl := h;
erstezahl := erstezahl*100000;
zweitezahl := zweitezahl * 1000;
drittezahl := drittezahl * 10;
summe:= erstezahl+zweitezahl+drittezahl+viertezahl;
summe1 := summe / 100;
edit11.text := IntToStr(erstezahl);
edit12.text := IntToStr(zweitezahl);
edit13.text := IntToStr(drittezahl);
edit14.text := IntToStr(viertezahl);
edit15.text := IntToStr(summe);
result := summe1;
end;
|
Mit BCDField wäre es sicher einfacher gewesen, weiss eben bloß nicht wie :o))
Hat jemand eine kürzere Version ?
MfG
Moderiert von Klabautermann: Delphi-Tags hinzugefügt.
lb - Do 24.07.03 22:37
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
| function TForm1.umrechnen(zahl, zahl2 ,zahl3,zahl4 : integer):Currency ;
var
erstezahl : integer;
zweitezahl: integer;
drittezahl: integer;
viertezahl: integer;
summe: integer;
summe1 : Currency;
s: string;
begin;
// erste Zahl
erstezahl := StrToInt(IntToHex(Zahl,2));
// zweite Zahl
zweitezahl := StrToInt(IntToHex(Zahl2,2));
// dritte Zahl
drittezahl := StrToInt(IntToHex(Zahl3,2));
// vierte Zahl nur erstel Halbbyte
s := IntToHex(Zahl4,2);
viertezahl := StrToInt(s[1]);
// Alle Zahlen zusammenfassen
erstezahl := erstezahl*100000;
zweitezahl := zweitezahl * 1000;
drittezahl := drittezahl * 10;
summe:= erstezahl+zweitezahl+drittezahl+viertezahl;
summe1 := summe / 100;
Edit1.Text := IntToStr(erstezahl);
Edit2.Text := IntToStr(zweitezahl);
Edit3.Text := IntToStr(drittezahl);
Edit4.Text := IntToStr(viertezahl);
Edit5.Text := IntToStr(summe);
result := summe1;
end;
// *************************** Ende Funktion umrechnen **************
// ******************************************************************* |
So sieht es einfacher aus, jedoch bekomme ich mit diesem Programm ein anderes Ergebniss: Wenn ich 64,34,72,40 wird die Zahl in 40224,82 umgewandelt und nicht wie gewuenscht in 64347,24!!!
lb - Do 24.07.03 22:38
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
| function TForm1.umrechnen(zahl, zahl2 ,zahl3,zahl4 : integer):Currency ;
var
erstezahl : integer;
zweitezahl: integer;
drittezahl: integer;
viertezahl: integer;
summe: integer;
summe1 : Currency;
s: string;
begin;
// erste Zahl
erstezahl := StrToInt(IntToHex(Zahl,2));
// zweite Zahl
zweitezahl := StrToInt(IntToHex(Zahl2,2));
// dritte Zahl
drittezahl := StrToInt(IntToHex(Zahl3,2));
// vierte Zahl nur erstel Halbbyte
s := IntToHex(Zahl4,2);
viertezahl := StrToInt(s[1]);
// Alle Zahlen zusammenfassen
erstezahl := erstezahl*100000;
zweitezahl := zweitezahl * 1000;
drittezahl := drittezahl * 10;
summe:= erstezahl+zweitezahl+drittezahl+viertezahl;
summe1 := summe / 100;
Edit1.Text := IntToStr(erstezahl);
Edit2.Text := IntToStr(zweitezahl);
Edit3.Text := IntToStr(drittezahl);
Edit4.Text := IntToStr(viertezahl);
Edit5.Text := IntToStr(summe);
result := summe1;
end;
// *************************** Ende Funktion umrechnen **************
// ******************************************************************* |
So sieht es einfacher aus, jedoch bekomme ich mit diesem Programm ein anderes Ergebniss: Wenn ich 64,34,72,40 wird die Zahl in 40224,82 umgewandelt und nicht wie gewuenscht in 64347,24!!!
lb - Do 24.07.03 22:50
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| function TForm1.umrechnen(zahl, zahl2 ,zahl3,zahl4 : integer):Currency ;
var
summe: integer;
summe1 : Currency;
s: string;
begin;
s := IntToStr(Zahl4);
zahl4 := StrToInt(s[1]);
summe:= zahl*100000 + zahl2 * 1000 + zahl3 * 10 + zahl4;
summe1 := summe / 100;
Edit1.Text := IntToStr(zahl);
Edit2.Text := IntToStr(zahl2);
Edit3.Text := IntToStr(zahl3);
Edit4.Text := IntToStr(zahl4);
Edit5.Text := IntToStr(summe);
result := summe1;
end; |
So kommt das gewuenschte Ergebniss heraus!!! :lol:
Pbg - Fr 25.07.03 12:18
Hallo ,
Danke für Deine Hilfe.
Die hex Umwandlung kannte ich nicht.
Ich habe es jetzt so gemacht
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
| function TForm1.umrechnen(zahl, zahl1, zahl2 ,zahl3, stelle : integer):Currency ;
var
h: integer;
erstezahl : integer;
zweitezahl: integer;
drittezahl: integer;
viertezahl: integer;
summe: integer;
summe1 : Currency;
begin;
erstezahl := StrToInt(IntToHex(Zahl,2));
zweitezahl := StrToInt(IntToHex(Zahl1,2));
drittezahl := StrToInt(IntToHex(Zahl2,2));
h:= zahl3 div 16;
viertezahl := h;
if stelle = 4 then begin
erstezahl := erstezahl*100000;
zweitezahl := zweitezahl * 1000;
drittezahl := drittezahl * 10;
end;
if stelle = 3 then begin
erstezahl := erstezahl*10000;
zweitezahl := zweitezahl * 100;
end;
if stelle = 2 then begin
erstezahl := erstezahl*1000;
zweitezahl := zweitezahl * 10;
end;
if stelle = 1 then begin
erstezahl := erstezahl*100;
end;
if stelle = 0 then begin
erstezahl := erstezahl*10;
zweitezahl := zweitezahl div 10;
end;
if stelle = 129 then begin
end;
summe:= erstezahl+zweitezahl+drittezahl+viertezahl;
summe1 := summe / 100;
edit11.text := IntToStr(erstezahl);
edit12.text := IntToStr(zweitezahl);
edit13.text := IntToStr(drittezahl);
edit14.text := IntToStr(viertezahl);
edit15.text := IntToStr(summe);
result := summe1;
end;
|
Ich musste doch das 2 Byte verwenden ( Ist die Längenangabe)
Ich hatte nicht bedacht das es auch Werte in der Datei gibt die zb 0,23 oder 23,50 sind :o))
2tes byte hex 81 bedeutet 0,12
2tes byte hex 00 bedeutet 1,20
2tes byte hex 01 bedeutet 12,00 u.s.w. geht in meinen Fall nur bis 4
MfG
Moderiert von Klabautermann: Delphi-Tags hinzugefügt.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!