JPG im Blob Feld wird extrem groß

[calikey]

constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
var
LShareMode: Word;
begin
if (Mode and fmCreate = fmCreate) then
begin
LShareMode := Mode and $FF;
if LShareMode = $FF then
LShareMode := fmShareExclusive; // For compat in case $FFFF passed as Mode
inherited Create(FileCreate(AFileName, LShareMode, Rights));
if FHandle = INVALID_HANDLE_VALUE then
raise EFCreateError.CreateResFmt(@SFCreateErrorEx, [ExpandFileName(AFileName), SysErrorMessage(GetLastError)]);
end

[Sherlock]

Zitat von calikey:

constructor TFileStream.Create(const AFileName: string; Mode: Word; Rights: Cardinal);
var
LShareMode: Word;
begin
if (Mode and fmCreate = fmCreate) then
begin
LShareMode := Mode and $FF;
if LShareMode = $FF then
LShareMode := fmShareExclusive; // For compat in case $FFFF passed as Mode
inherited Create(FileCreate(AFileName, LShareMode, Rights));
if FHandle = INVALID_HANDLE_VALUE then
raise EFCreateError.CreateResFmt(@SFCreateErrorEx, [ExpandFileName(AFileName), SysErrorMessage(GetLastError)]);
end

Wozu postest Du das?



Sherlock

[calikey]

habe im debugger ein halte punkt bei der fehlermeldung gesetzt und das steht drin

[DeddyH]

Also anscheinend in der Zeile

Zitat:

FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);

Falls ja, finde ich das jetzt etwas merkwürdig. Lass Dir doch sdBlob.FileName einmal ausgeben, kannst das auch hier posten, aber es würde mich wundern, wenn ein Dialog einen ungültigen Dateinamen zurückgibt.

[himitsu]

Wie TFileStream.Create aussieht, wissen wir auch schon.
Wichtiger ist es zu wissen was "in" sdBlob.FileName drin steht.

[calikey]

    sdBlob: TSaveDialog; oder die daten vom object inspektor?

[DeddyH]

Das, was zur Laufzeit in der Filename-Eigenschaft dieses Dialogs steht.

[Sherlock]

Calikey, bevor hier einer der Beteiligten einen Herzinfarkt bekommt, oder entnervt aufgibt: Bitte lies Dir das durch: http://www.delphipraxis.net/41047-tu...ortgeschr.html

Ehrlich!

Sherlock

[calikey]

Bin froh das man soviel gedult hat. Ich muss mich erst mal um meine kleine kümmern und lese mir heute abend denn link durch. Ich schreib dann heute abend weiter. Bedanke mich erst mal ganz herzlich bei allen die bis jetzt geholfen haben.