gimme md5!-Ein kleines Programm zum Vergleichen von Dateien

[zahor]

Weil es mir gelegentlich passiert, dass ich eine Datei zwei Mal oder noch öfter herunterlade, und dann nicht weiß, ob sie genau gleich sind (Dateigröße muss ja nicht unbedingt gleich sein), habe ich mir ein Programm geschrieben, das bis zu drei Dateien anhand ihrer md5-Checksumme vergleicht. Vielleicht braucht's ja wer
Natürlich kann man es auch verwenden, um einfach nur die md5-Checksums auszulesen
Außerdem kann das Programm die Verzeichnisse auslesen, die im Windows Explorer geöffnet sind, und schon voreintragen - dann fehlt nur noch der Dateiname.
Die Dateinamen muss man im Moment allerdings noch von Hand oder per [Strg]+[V] einfügen, Drag&Drop kommt, sobald ich es hingekriegt habe. Wäre dabei für Unterstützung dankbar, da ich noch keinerlei Plan habe, wie ich das machen kann/soll

Um den Quelltext kompilieren zu können, muss man unter Umständen noch auf 'Komponente'-->'ActiveX importieren' gehen, dann 'Microsoft Internet Controls' oder 'Microsoft Internet Controls 1.1' (je nach Windows-Version) auswählen und dann Installieren drücken - bekommt man die Fehlermeldung, TWebBrowser sei schon installiert und man kann es trotzdem nicht kompilieren, dann muss man halt auf 'Unit anlegen' klicken. So ist jedenfalls bei mir (Delphi 7 Enterprise / Windows Vista) gewesen.
Die andere nicht unbedingt vorhandene Unit (md5) ist dabei. Die muss man nur noch im Delphi-Hauptverzeichnis im Unterverzeichnis 'lib' platzieren, also z.B. in 'C:\Programme\borland\Delphi 7\lib\'. Dann müsste es funktionieren.

Ich bin für Feedback jeglicher Art dankbar!

[zahor]

@jmit: gar nichts markieren
du öffnest einfach ein paar ordner, z.b. eigene dateien oder programme oder so, und klickst dann zurück im programm auf den button. bei mir funktioniert's unter vista prächtig, win 2000 ist auch kein problem, also wieso sollte xp nicht gehen? probier's doch nochmal
und könntest du deine vorschläge zum interface vielleicht etwas präzisieren? danke. wie gesagt, kritik ist immer willkommen!
@larsi: http://www.delphipraxis.net/internal...ct.php?t=59489 das projekt scheint's aber nicht mehr zu geben...
vllt. hilft dir das weiter: http://www.heise.de/software/download/o0g0s0l3k311 sind bestimmt auch ein paar opensource dabei!

[jmit]

Hallo

Zitat von zahor:

@jmit: gar nichts markieren
du öffnest einfach ein paar ordner, z.b. eigene dateien oder programme oder so, und klickst dann zurück im programm auf den button. bei mir funktioniert's unter vista prächtig, win 2000 ist auch kein problem, also wieso sollte xp nicht gehen? probier's doch nochmal
...

Gemacht wie beschrieben. Bekomme dann folgende Meldung (Siehe Anhang)

[zahor]

hm... das ist komisch. wie man im quelltext sieht greift das programm ja auf gar keine dateien zu (außer natürlich beim errechnen der hashes)!
hast du windows vielleicht nicht auf c: installiert? oder sonst irgendwelche "exotischen" dinge mit deinem windows gemacht? das wären die einzigen möglichkeiten die mir so spontan um halb elf noch einfallen^^

Der quelltext des kopier-buttons ist ja folgender:

Delphi-Quellcode:

var
  ShellWin: IShellWindows;
  i: Integer;
  ClName: array[0..64]of Char;
  Pfad: AnsiString;
begin
  ShellWin := CoShellWindows.Create;
  for i := 0 to Pred(ShellWin.Count) do
    with ShellWin.Item(i) as IWebBrowser2 do
    begin
      GetClassName(hwnd, ClName, SizeOf(ClName));
      if (string(ClName)= 'ExploreWClass') or (string(ClName)= 'CabinetWClass') then
      begin
        Pfad:= StringReplace(LocationURL, 'file:///', '', [rfReplaceAll, rfIgnoreCase]);
        Pfad:= StringReplace(Pfad, '/', '\', [rfReplaceAll]);
        Pfad:= StringReplace(Pfad, '%20', ' ', [rfReplaceAll]);
        if DirectoryExists(Pfad) then
          ListBox1.Items.Add(IncludeTrailingPathDelimiter(Pfad));
        //ListBox1.Items.Add(Format('%d   %s   %s', [HWND, LocationURL, LocationName]))
      end;
    end;

du kannst ja mal den source nehmen und mit f7 compilieren (immer wieder f7 drücken, am besten draufbleiben, du kennst das wahrscheinlich eh) und mir sagen, in welcher zeile der fehler kommt. die md5-berechnungs-blöcke aber am besten per f8 überspringen, sonst sitzt du noch nächstes jahr mit dem finger auf f7 rum^^

EDIT: oder in delphi die listbox vergrößern und visible auf true setzten. sie ist so 8*8 pixel groß in der linken oberen ecke im moment und posten was da drin steht. vllt. vorher noch die kommentierung entfernen damit das ding ein bisschen mehr verrät