Hy @all

Also ich lese meinen Bilderordner in eine CheckListBox aus.
Dann stehen die Bilder in der CheckListBox drinnen wie kann ich das jetzt machen wenn ich zb dann auf Start klicke das er mir das Bild überschreibt. Jetzt kann ich es eh schon verkleinern aber nur wenn ich zB ein KL_ davor setzte. Jetzt meine Frage wie geht das das ich eine vorhandene datei üerschreiben kann weil jetzt kommt immer das die Datei verwendet wird.

Mfg
StoRmtec

Klingt so als wenn dein Prog die Bilddatei noch geöffnet hat.

Poste mal den Codeteil, wo du die Datei ausliest/verkleinerst/speicherst...

Also verkleinern du ich so über eine andere Kombo

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  i : integer;
begin
ProgressBar1.min := 1;
ProgressBar1.step := 1;
ProgressBar1.max := CheckListBox1.Items.Count;

mThumbs1.InFiles.Clear;
for i := 0 to CheckListBox1.Items.Count - 1 do
 BEGIN
  ProgressBar1.Position := i+1;
  if CheckListBox1.Checked[i] then
   begin
    mThumbs1.InFiles.Add (CheckListBox1.Items[i]);
   sleep(200);
   end;
 END;
 mThumbs1.CreateThumbnails;


 end;

einlesen so

zusammenfalten · markieren

Delphi-Quellcode:

function OpenFolder(root: Integer; Caption: string): string;
var
  bi: TBrowseInfo;
  lpBuffer: PChar;
  pidlPrograms, pidlBrowse: PItemIDList;
begin
  if (not SUCCEEDED(SHGetSpecialFolderLocation(GetActiveWindow, root,
    pidlPrograms))) then
    exit;
  lpBuffer := StrAlloc(MAX_PATH);
  bi.hwndOwner := GetActiveWindow;
  bi.pidlRoot := pidlPrograms;
  bi.pszDisplayName := lpBuffer;
  bi.lpszTitle := PChar(Caption);
  bi.ulFlags := BIF_RETURNONLYFSDIRS;
  bi.lpfn := nil;
  bi.lParam := 0;
  pidlBrowse := SHBrowseForFolder(bi);
  if (pidlBrowse <> nil) then
    if SHGetPathFromIDList(pidlBrowse, lpBuffer) then
 Result := lpBuffer;
  StrDispose(lpBuffer);
end;

Das hier hat mehr mit dem suchen und auswählen der zu verkleinernten Dateien zu tun.
Ich meinte aber den Teil wo das Bild verkleinert wird, da sich der Fehler vermutlich dort befindet.

wie gesagt das ist eine eigene kompo

Dann kann ich dir leider auch nicht helfen, hier scheint ja alles ok zu sein.

Wenn du aber die Dateien unter einem anderen Dateinamen speichern kannst, besteht noch die Möglichkeit dieses zu machen. Danach die Originaldatei zu löschen (DeleteFile) und die neu Datei umzubennenen (RenameFile).