Delphi-Quellcode:
procedure CalculateHash(ToHash: String; HashMethode: Integer);
var
datei : FileStream;
Hash : HashAlgorithm;
input, puffer : Array of Byte;
i : Integer;
begin
case Form1.PageControl1.TabIndex of
0:
begin
datei := FileStream.Create(ToHash,FileMode.Open, FileAccess.Read,FileShare.None);
SetLength(input, datei.Length);
datei.Read(input,0, datei.Length);
datei.Free;
end;
1:
begin
i := 1;
SetLength(input, Length(ToHash));
while i <= length(ToHash) do
begin
input[i - 1] := Ord(ToHash[i]);
inc(i)
end;
end;
end;
case HashMethode of
0:
begin
Hash := MD5CryptoServiceProvider.Create;
puffer := HASH.ComputeHash(input);
end;
i := 0;
while i < length(puffer) do
begin
HASHString := HASHString + puffer[i].ToString('x2');
inc(i);
end;
Form1.Memo1.Text := HASHString.ToUpper;
der rest ist nur der funktionsaufruf und das auswählen einer datei über einen opendialog...
denke aber nicht das es am code liegt... der läuft ja...
wenn ich eine datei ohne alles bis auf das was delphi mir vorgibt, sprich das fenster, erstelle
dann läuft die exe... sie ist dann aber auch viel größer (1,4mb
)... in dem moment
in dem ich einen button auf die form klatsche schrumpft die größe auf 16kb und die exe startet nur noch bei mir..
wenn dann all mein code geschrieben und die elemente auf dem fenster sind ist die exe 160kb groß und
ebenfalls nur auf dem rechner lauffähig auf dem sie kompiliert wurde... da frag ich mich doch was da verloren geht..