Hallo
Ich versuche gerade mit dem ImageEnDBView-component aus dem ImageEn-paket
ein multi-image-TIFF-file mit 8 Bildern darin in ein Record mit dem blob-field
ze bekommen. Dabei gelingt es mir nicht alle 8 der Bilder in das Database-Table
reinzubeomen. Lediglich das erste Bild aus dem TIFF-Datei wird sdo gespeichert:
Ich habe es auf viele Arten versucht. Das neueste sieht so aus:
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:
25:
26:
27:
| procedure TForm1.BitBtn2Click(Sender: TObject);
var
ms: TMemoryStream;
tags:TIETIFFHandler;
blob: TStream;
fs: tfilestream;
begin
ImageEnDBView.DataSource.DataSet.Append;
blob :=
ImageEnDBView.DataSource.DataSet.CreateBlobStream(ImageEnDBView.DataSource.D
ataSet.FieldByName(ImageEnDBView.DataField),bmWrite);
try
blob.Seek(0, soFromBeginning);
fs := TFileStream.Create('c:\mutiimagetif.tif', fmOpenRead or
fmShareDenyWrite);
fs.Position := 0;
try
blob.CopyFrom(fs, fs.Size)
finally
fs.Free
end;
finally
blob.Free
end;
ImageEnDBView.DataSource.DataSet.post;
Form1.Caption := '--- ' + inttostr
(ImageEnDBView_dbctrlgrid.IO.Params.TIFF_ImageCount); |
....hier bekomme ich die Zahl eins....
Kann mir da jeman helfen.
Dank im voraus vielmals
Das hier ist mein allererster Post. Fehler wird man mir wohl vergeben.
Omer aus den Niederlanden
Moderiert von 
raziel: Delphi-Tags hinzugefügt
