huhu,
hab folgendes, drängelndes Problem:
Ich will einen Stream oder ähnliches benutzen um Bilddaten die in einer
DB als Memofelder gespeichert sind auszulesen.
die
DB ist folgendermaßen organisiert:
ein feld mit fortlaufender ID, dann gibt es ein zweites Integer Feld Namens "CTId" und eben das Memo-Feld "Bilddaten".
Vermutlich wird das zweite Integer Feld zu kennung der zusammengehörigen Memofelder benutzt. Jedenfalls bin ich davon ausgegenagen, und habe auch immer alle MemoFelder wo dieses zweite Feld gleich war als eine datei gespeichert.
Und zwar so:
Delphi-Quellcode:
var
LCurCTId: Integer;
LCurFile: TMemoryStream;
LRecCnt: Integer;
LCurRecNr: Integer;
LFileName: String;
LADOStream: TADOBlobStream;
begin
LFileName := '';
LCurCTId := 0;
LCurRecNr := 1;
LCurFile := TMemoryStream.Create;
LRecCnt := ADOQuery1.RecordCount;
// LCurFile.??? Möglichkeit die "GrowRate" zu erhöhen? 32k Blöcke, orso?
while not ADOQuery1.Eof do begin
SetStatusText('Verarbeite '+IntToStr(LCurRecNr)+ ' von '+IntToStr(LRecCnt)+'Datensätzen..', 2);
LCurCTId := ADOQuery1.FieldByName('CTID').AsInteger;
LADOStream := ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('BildDaten'),
bmRead) as TAdoBlobStream;
LCurFile.CopyFrom(LADOStream, 0);
LADOStream.Clear;
Inc(LCurRecNr);
ADOQuery1.Next;
if (ADOQuery1.FieldByName('CTID').AsInteger <> LCurCTId) OR ADOQuery1.Eof then begin
LFileName := eOutputDir.Text + konPicPraef + IntToStr(LCurCTId) +
konPicSuff;
SetStatusText('Speicher Bild unter "'+LFileName+'"', 2);
LCurFile.SaveToFile(LFileName);
LCurFile.Clear;
end;
end;
end;
Das was dabei raus kommt haut aber nicht hin. Ist nicht lesbar.
Auch ist es komisch das die
DB 41,7MB groß ist, alle gespeicherten Dateien zusammen aber nur 305KB!?!
Ich hab auch mit dem ADP
DB Explorer die
DB geöffnet und dort steht auch "(MEMO)" auls Feldtyp für "Bilddaten".
Ich vermute das evtl. #0 beim auslesen den Stream abscheneidet weil er intern vielleicht als Memo behandelt wird?
Hat einer eine Idee wie ich wirklich alle Daten rausbekomme?
Shalom
[edit=SirThornberry]Titel korrigiert - Mfg, SirThornberry[/edit]