Hallo allerseits,

ich hab aus der CodeLibrary diesen Tipp genommen und wollte das in mein Projekt einbauen. Allerdings bricht Delphi beim compilieren immer mit dem Fehler ab:

markieren

Code:

E2010 Inkompatible Typen: 'AnsiChar' und 'Char'
E2010 Inkompatible Typen: 'AnsiChar' und 'Char'
E2010 Inkompatible Typen: '_SHFILEOPSTRUCTA' und '_SHFILEOPSTRUCTW'

Die ersten beiden Fehler beziehen sich auf PAnsiChar(), der letzte auf den SHFileOperationA-Aufruf.

Ich hab echt keine Ahnung wieso das nicht [mehr?] funktioniert ... Wäre schön, wenn ihr mir helfen könntet.

mfg, mh166

Glaskugel auspack: Probierst du es mit Delphi 2009?

Ändere
  SHFileOpStruct: TSHFileOpStruct; mal auf
  SHFileOpStruct: TSHFileOpStructA; oder

zusammenfalten · markieren

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: String;
    Flags: FILEOP_FLAGS): Integer;
var
  FromPath, ToPath: AnsiString;
  SHFileOpStruct: TSHFileOpStruct;
begin
  FromPath := aFrom + #0#0;
  ToPath := aTo + #0#0;
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PChar(FromPath);
    if ToPath <> '' then
    begin
      pTo := PChar(ToPath)
    end else begin // target available
      pTo := nil;
    end; // target not available
    fFlags := Flags;
  end; // structure
  Result := SHFileOperation(SHFileOpStruct);
end;

In deinem Profil steht Delphi 6, mit Delphi 5 funktioniert es.

Oder Du nimmst meine Wrapper-Unit für SHFileOperation aus der Code-Library

Viele Grüße

Zitat von Bernhard Geyer:

Glaskugel auspack: Probierst du es mit Delphi 2009?

Ich glaub so eine brauch ich auch mal. Guter Treffer!

@Reinhardtinho: Ich glaub ich muss mein Profil mal aktualisieren. 8) Hat sich halt einiges verändert seit dem man auf Arbeit was programmieren muss.

@mirage228: Auch ne Idee. Allerdings brauch ich die Funktion eh nur mal kurz. Aber danke für den Hinweis, kann ich bestimmt mal gebrauchen.

Danke euch allen.


mfg, mh166

Zitat von Bernhard Geyer:

Glaskugel auspack: Probierst du es mit Delphi 2009?

Ändere
  SHFileOpStruct: TSHFileOpStruct; mal auf
  SHFileOpStruct: TSHFileOpStructA;

Könnte jemand das Codebeispiel in der Library bitte entsprechend anpassen? Vielen herzlichen Dank für eure Hilfe.

So wäre es aber Ansi ... ich würde es eher andersrum ändern.

ab D2009 Unicode (davor ANSI):

zusammenfalten · markieren

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: String;
    Flags: FILEOP_FLAGS): Integer;
var
  SHFileOpStruct: TSHFileOpStruct;
begin
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PChar(aFrom + #0);
    if aTo <> '' then
      pTo := PChar(aTo + #0)
    else
      pTo := nil;
    fFlags := Flags;
  end;
  Result := SHFileOperation(SHFileOpStruct);
end;

immer ANSI:

zusammenfalten · markieren

Delphi-Quellcode:

function DoFileWork(aOperation: FILEOP_FLAGS; aFrom, aTo: AnsiString;
    Flags: FILEOP_FLAGS): Integer;
var
  SHFileOpStruct: TSHFileOpStructA;
begin
  with SHFileOpStruct do
  begin
    Wnd := 0;
    wFunc := aOperation;
    pFrom := PAnsiChar(aFrom + #0);
    if aTo <> '' then
      pTo := PAnsiChar(aTo + #0)
    else
      pTo := nil;
    fFlags := Flags;
  end;
  Result := SHFileOperationA(SHFileOpStruct);
end;

Die von mir erstellte und hier verlinkte Wrapper-Unit für SHFileOperation sollte ohne weitere Änderungen Delphi 2009 und 2010-kompatibel sein...