hallo!
hoffe es kann mir jemand helfen?!
habe unter windows xp sp2 mit delphi 7 eine anwendung (ado) programmiert. unter anderem lese ich ein rave-file aus der datenbank aus. die anwendung funktioniert unter xp tadellos. auf einem w2k-client gehts nicht.
folgendes problem:
ich kopiere das ausgelesene file in einem temp-ordner. unter xp hat das file die richtige größe, unter w2k nur 1kb => kaputt. deshalb auch der stream-lesefehler.
kennt jemand das problem? kann man unter w2k kein blob-file auslesen???
der code zum auslesen des blob-files:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
| function TDBinFile.BinFileLaden(FName, Bereich, FileName: string):boolean;
var BinSatz: TBinFile;
var fs : TFileStream;
begin
Result := FALSE;
BinSatz := SelectBinFileFNameBereich(FName, Bereich);
if BinSatz.bf_ID <> 0 then begin
qSQL.SQL.clear;
qSQL.SQl.Text := 'select bf_Blob from BinFile Where bf_ID = ' + ltoa(BinSatz.bf_ID,0);
qSQL.CursorLocation := clUseClient;
qSQL.open;
qSQL.ExecSQL;
FS := TFileStream.Create(FileName, fmCreate);
qSQL.LoadFromBlob(qSQL.FieldByName('bf_Blob'), FS);
FS.Free;
qSQL.Close;
qSQL.CursorLocation := clUseServer;
Result := TRUE;
end;
end; |
Moderiert von 
Gausi: Code- durch Delphi-Tags ersetzt.
