AW: TPath.Combine, TPath.GetTempPath threadsicher?
Sehr grausam, wie hier manche mit den Exceptions umgehen ... indem man versucht diese mit aller Gewalt zu umgehen :roll:
Das ist doch absoluter Schwachfug und führt einzig und alleine dazu, dass irgendwas nicht funktioniert, aber keiner merkt es.
Delphi-Quellcode:
Wann passiert es denn, dass ich hier eine Exception bekomme?
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;
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. |
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Zitat:
Delphi-Quellcode:
aus zu setzen?
var
FName : String; error : boolean; begin ... try error := CopyStream2File('42',FName); except MyError('Fehler...'); end; if not Error then Play(FName) end; 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; |
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Ganz einfach das hier:
Delphi-Quellcode:
Und wenn wir diese initiale Zuweisung von
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;
Delphi-Quellcode:
weglassen, dann haben wir einen Zufallsgenerator. Mal wird
error := False;
Delphi-Quellcode:
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.
Play(FName)
|
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Ohne es nachgeprüft zu haben, aber könnte es sein das TPath.GetTempPath den Pfad ohne abschliessenden Slash bzw. Backslash zurückgibt?
|
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Zitat:
Delphi-Quellcode:
verwirren lassen, es wird trotzdem ein Directory zurückgeliefert und eben kein Path), spielt aber keine Geige, denn es wird ja
Get...Path
Delphi-Quellcode:
benutzt, und das sorgt dafür, dass der richtige Trenner dazwischen kommt.
TPath.Combine
|
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Zitat:
Deswegen so
Delphi-Quellcode:
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...
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; |
AW: TPath.Combine, TPath.GetTempPath threadsicher?
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.
|
AW: TPath.Combine, TPath.GetTempPath threadsicher?
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:
Jetzt kann man das wahlweise mit oder ohne Exception-Behandlung benutzen:
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;
Delphi-Quellcode:
// mit Exception
Play( CopyResourceToFile( '42' ) ); // oder ganz bewusst im Code auf die Exception verzichten if TryCopyResourceToFile( '42', FName ) then Play( FName ); |
AW: TPath.Combine, TPath.GetTempPath threadsicher?
Zitat:
Indem ich mir genau wie die WinAPI nen GetMyLastError baue oder was? :kotz: |
AW: TPath.Combine, TPath.GetTempPath threadsicher?
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.
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz