String durchsuchen

[Uncle Cracker]

Ich habe mir folgende Funktion gebastelt, um zu überprüfen, ob eine Datei eine DLL-Datei ist:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
if(pos('.dll','C:\Test.dll') > 0)  then
Label1.Caption:='DLL-Datei' else Label1.Caption:='Keine DLL-Datei'
end;

Klappt auch super, jedoch wenn die Datei Test.DLL heißt, geht es schon wieder nicht

Gibt es vielleicht ein kurze Möglichkeit, dass die Groß- und Kleinbuchstaben egal sind, denn ich möchte nicht alle möglichkeiten durch gehen, also dLL, dlL, DlL usw.


Danke UC

[toms]

so:

if (Pos('.DLL',AnsiUpperCase('C:\Test.dll')) > 0) then

[Uncle Cracker]

Ok, hat sich erledigt, habe selbst eine Lösung gefunden:

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
if(pos('.dll',lowercase('C:\Test.Dll')) > 0)  then
Label1.Caption:='DLL-Datei' else Label1.Caption:='Keine DLL-Datei'
end;

[Christian Seehase]

Moin UC,

Zitat von Uncle Cracker:

habe selbst eine Lösung gefunden:

Jain.
Was machst Du, wenn die Datei .dll im Dateinamen beinhaltet, z.b. Test.dll.exe, oder die Endung länger ist test.dll2?
Schau Dir mal die LastDelimiter an, und nehm dann alles ab dem letzen Punkt im String für den Vergleich.

[himitsu]

Also wenn, dann wenigstens so:

Delphi-Quellcode:

If AnsiUpperCase(ExtractFileExt('C:\Test.Dll')) = '.DLL' Then 
  Label1.Caption := 'DLL-Datei' Else Label1.Caption := 'Keine DLL-Datei';

[Luckie]

Wer sagt, dass eine DLL auch die Endung DLL haben muss? Bei Assarbad www.assarbad.org gibt es ein Programm mit Source, um zu bestimmen ob eine datei ein gültiges PE32 Format hat. Ähnliches sollte sich auch mit DLL's machen lassen.

[Uncle Cracker]

Ich habe mir mal das Programm von Assarbad angeguckt, konnte nix finden, was mir weiter helfen könnte.

Eigentlich auch logisch? Denn eine Dll ist doch auch nur eine gültiges PE32 Format, oder irre ich mich da jetzt

[Luckie]

Also ich würde länger als 10 Minuten brauchen, um zu verstehen, was er da macht und vor allem wie.

[Uncle Cracker]

Ich habe mich jetzt mal ein bisschen rangesetzt und eine schöne kleine Funktion geschrieben, die überprüft ob die eingegeben Datei eine DLL-Datei ist, egal wie die geschrieben ist:

Delphi-Quellcode:

function isDll(Dateiname: string): Boolean;
var
  i : Integer;
  s : String;
begin
  if(pos('.',Dateiname) > 0) then
    begin
      i := length(Dateiname);
      while(Dateiname[i] <> '.') do dec(i);
      s := lowercase(copy(Dateiname,i,99));
      if length(s)=4 then
        begin
          if(pos('.dll',s) > 0) then
            Result := true
          else Result := false
        end else Result := false
     end
  else
    Result := false
end;

Auch wenn der der Dateiname .exe.dll oder dll.exe heißt, kommt man zum richtigen Ergebnis.
Ist sicher ein bisschen umständlich programmiert, aber es läuft

[Christian Seehase]

Moin UC,

zum einen ist Himitsus Variante doch auch gut, zum anderen kann ich mich des Eindruckes nicht erwehren, dass Du Dir LastDelimiter nicht wirklich angeschaut hast