TPath.Combine, TPath.GetTempPath threadsicher?

[Mavarik]

Zitat von Sir Rufo:

Und wenn wir diese initiale Zuweisung... weglassen, dann haben wir einen Zufallsgenerator.

Logisch... hatte ich übersehen...

Deswegen so

Delphi-Quellcode:

Function CopyStream2File(ResourceID: string; var fName: String): boolean;
var
    ResStream: TResourceStream;

begin
   Result := False;
    
   try 
    ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
    try
      //MP3 File aus Resource laden und in Filesystem ablegen
      fName := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');
// fName := TPath.Combine('/data/data/com.embarcadero.Meinprogram/files/', 'tmp.mp3');

      ResStream.Position := 0;
      ResStream.SaveToFile(fName);
      Result := True;
    finally
      ResStream.Free;
    end;
   except
   end
end;

Schon habe ich ein Error-Free Programm/Procedure und ob und wie ich den Fehler ausgeben will kann ich außerhalb anhand meines Boolean entscheiden...

[DeddyH]

Und da steht dann "Es ist ein Fehler aufgetreten", da man die Exception einfach geschluckt hat und somit nicht weiß, welche überhaupt geworfen wurde, geschweige denn ihren ggf. vorhandenen Fehlertext gespeichert hat.

[Sir Rufo]

Und wenn man so etwas mit aller Gewalt haben will, dann sollte man das auch sprachlich entsprechend hervorheben, damit man auch später noch weiß, dass da etwas in die Hose gehen kann, ohne dass man eine Exception bekommt:

Delphi-Quellcode:

Function CopyResourceToFile( const ResourceID: string ) :String);
var
    ResStream: TResourceStream;
begin
    ResStream := TResourceStream.Create(HInstance, ResourceID, RT_RCDATA);
    try
      //MP3 File aus Resource laden und in Filesystem ablegen
      fName := TPath.Combine(TPath.GetTempPath, 'tmp.mp3');

      ResStream.Position := 0;
      ResStream.SaveToFile(fName);
    finally
      ResStream.Free;
    end;
end;

function TryCopyResourceToFile( const ResourceID: string; out AFileName : string ) : Boolean;
begin
  try
    AFileName := CopyResourceToFile( ResourceId );
    Result := True;
  except
    Result := False;
  end;
end;

Jetzt kann man das wahlweise mit oder ohne Exception-Behandlung benutzen:

Delphi-Quellcode:

// mit Exception
Play( CopyResourceToFile( '42' ) );
// oder ganz bewusst im Code auf die Exception verzichten
if TryCopyResourceToFile( '42', FName ) then
  Play( FName );

[Stevie]

Zitat von Mavarik:

Schon habe ich ein Error-Free Programm/Procedure und ob und wie ich den Fehler ausgeben will kann ich außerhalb anhand meines Boolean entscheiden...

Und mit welcher magischen Funktion wandel ich den Zustand False wieder in eine aussagekräftige Fehlerinformation um?
Indem ich mir genau wie die WinAPI nen GetMyLastError baue oder was?

[DeddyH]

Meine Rede. Ich freu mich auch immer in der Hotline, wenn solche ominösen Fehlermeldungen auftauchen, weil man ja ganz schlau mit Exceptions umgegangen ist.

[Uwe Raabe]

Bevor das hier ganz in Richtung Off-Topic abdriftet - hat noch irgendjemand Erkenntnisse zu der eigentlichen Frage?

Insbesondere wäre vom Fragesteller ein Hinweis nützlich, welche Umgebung hier eigentlich vorliegt: Windows, OSX, iOS, Android?

[zeras]

Zitat von Uwe Raabe:

Bevor das hier ganz in Richtung Off-Topic abdriftet - hat noch irgendjemand Erkenntnisse zu der eigentlichen Frage?

Sieht fast so aus, aber ich habe auf jeden Fall was dazu gelernt.
Danke nochmals für eure Erklärungen.

Zitat von Uwe Raabe:

Insbesondere wäre vom Fragesteller ein Hinweis nützlich, welche Umgebung hier eigentlich vorliegt: Windows, OSX, iOS, Android?

Das ganze nutze ich für Android.