Forum: Sonstige Fragen zu Delphi
Delphi
by Medium,
1. Mär 2010
Ich hab eindeutig mindestens ein Mal zu wenig in der Hilfe gekramt, verdammt :) Danke!
Forum: Sonstige Fragen zu Delphi
Delphi
by Medium,
1. Mär 2010
Hui, seit wann gibts den denn? :oops:
Forum: Sonstige Fragen zu Delphi
Delphi
by Medium,
1. Mär 2010
Was am Ende dabei raus kommt ist beim Input noch egal. Um einen String entsprechend nutzbar zu machen würde ich so vorgehen:
var
s: String; // Hier stehen die Hex-Werte drin
data: packed array of byte;
i: Integer;
begin
SetLength(data, Length(s) div 2);
for i := 0 to (Length(s) div 2)-1 do
data := Byte(StrToInt('$'+s+s));
Forum: Sonstige Fragen zu Delphi
Delphi
by Medium,
1. Mär 2010
Probiern wir's mal:
function InternetChecksum(data: PByte; byteCount: Cardinal): Word;
var
sum: Cardinal;
begin
sum := 0;
while byteCount > 1 do
begin
Inc(sum, PWord(data)^);