TPath.Combine, TPath.GetTempPath threadsicher?

[Sir Rufo]

Sehr grausam, wie hier manche mit den Exceptions umgehen ... indem man versucht diese mit aller Gewalt zu umgehen

Das ist doch absoluter Schwachfug und führt einzig und alleine dazu, dass irgendwas nicht funktioniert, aber keiner merkt es.

Delphi-Quellcode:

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

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

begin
  Play( CopyStream2File('42') );
end;

Wann passiert es denn, dass ich hier eine Exception bekomme?

• Die ResourceID ist falsch, weil nicht vorhanden -> Fehler beim Programmierer
• Das Temp-Verzeichnis ist nicht beschreibbar -> Fehler beim Anwender

Aber anstatt sich den Hinweis hier um die Ohren zu hauen, wird der einfach hübsch versteckt, weil das sieht ja dann "besser" aus. Voll profimässig

Exceptions sind nicht böse, sondern sehr hilfreich.

Und wenn man die Exceptions wirklich nicht anzeigen möchte, dann geht das ganz simpel, indem man TApplication.OnException mit einem Event belegt und dort wenigstens diese Meldungen protokolliert.

[Mavarik]

Zitat von Sir Rufo:

Sehr grausam, wie hier manche mit den Exceptions umgehen ...

Ach ja was gibt es denn hieran

Delphi-Quellcode:

var
   FName : String;
   error : boolean;
begin
   ...
   try
     error := CopyStream2File('42',FName);
   except
     MyError('Fehler...');
   end;

   if not Error then
     Play(FName)
   
end;

aus zu setzen?

Von mir aus auch

Delphi-Quellcode:

var
   FName : String;
   error : integer;
begin
   ...
   try
     error := CopyStream2File('42',FName);
   except
     MyError('Fehler...',error);
   end;

   if Error=0 then
     Play(FName)
   
end;

[Sir Rufo]

Ganz einfach das hier:

Delphi-Quellcode:

var
   FName : String;
   error : boolean;
begin
   ...
  error := False; // damit das auf jeden Fall initialisiert ist
   try
     error := CopyStream2File('42',FName); // <- das erzeugt eine Exception
   except
     MyError('Fehler...'); // <- Ja wird ausgeführt
   end;

   if not Error then // <- Was für einen Wert hat jetzt Error? Richtig: False - äh, aber das ist doch Falsch! Eben darum
     Play(FName)
   
end;

Und wenn wir diese initiale Zuweisung von error := False; weglassen, dann haben wir einen Zufallsgenerator. Mal wird Play(FName) ausgeführt und mal nicht, obwohl es immer einen Fehler gibt. Dadurch kommen dann solche Gerüchte über Auswirkungen von Erdstrahlen oder Sonnenflecken auf die Programme auf.

[ringli]

Ohne es nachgeprüft zu haben, aber könnte es sein das TPath.GetTempPath den Pfad ohne abschliessenden Slash bzw. Backslash zurückgibt?

[Sir Rufo]

Zitat von ringli:

Ohne es nachgeprüft zu haben, aber könnte es sein das TPath.GetTempPath den Pfad ohne abschliessenden Slash bzw. Backslash zurückgibt?

Dem ist zwar so (ja, nur nicht von dem Namen Get...Path verwirren lassen, es wird trotzdem ein Directory zurückgeliefert und eben kein Path), spielt aber keine Geige, denn es wird ja TPath.Combine benutzt, und das sorgt dafür, dass der richtige Trenner dazwischen kommt.

[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.