Hallo zusammen,
<p>
gesundes neues erstmal
<p>
ich versuche krampfhaft, ein Blobs an Crystal Reports zu übergeben (Es sidn selbstgebaute Barcodes, die in keiner DB stehen.
<br>
Dazu erzeuge ich mit
<p>
<pre>
FRecordset := CoRecordset.Create;
FRecordset.CursorLocation := adUseClient;
FRecordset.Fields.Append('Field1',adBstr,100,adFld Unspecified);
FRecordset.Fields.Append('Field2',adBstr,100,adFld Unspecified);
FRecordset.Fields.Append('Field3',adBinary,100,adF ldUnspecified);
</pre>
<p>
ein Ado-Recordset
<br>danke Herr Kosch
<br>
dann kommt das Füllern, was mir nicht gelingen will, der Compiler meckert.
<br>
Wie bekomme ich denn nen Blob hier rein ??
<pre>
var
MemStream : TMemoryStream;
FileStream : TFileStream;
begin
FileStream:= TFileStream.Create('d:\user\raja.bmp', fmOpenRead);
MemStream:= TMemoryStream.Create;
MemStream.CopyFrom(FileStream, 0);
FRecordset.Open(EmptyParam,EmptyParam,
adOpenUnspecified,adLockUnspecified,1);
FRecordset.AddNew(
VarArrayOf([
WideString('Field1'),
WideString('Field2'),
WideString('Field3')
]),
VarArrayOf([
sTest,sTest,MemStream]));
FRecordset.Update(Emptyparam,EmptyParam);
</pre>
<p>
danke im voraus
<br>
Heiko
<p>
gesundes neues erstmal
<p>
ich versuche krampfhaft, ein Blobs an Crystal Reports zu übergeben (Es sidn selbstgebaute Barcodes, die in keiner DB stehen.
<br>
Dazu erzeuge ich mit
<p>
<pre>
FRecordset := CoRecordset.Create;
FRecordset.CursorLocation := adUseClient;
FRecordset.Fields.Append('Field1',adBstr,100,adFld Unspecified);
FRecordset.Fields.Append('Field2',adBstr,100,adFld Unspecified);
FRecordset.Fields.Append('Field3',adBinary,100,adF ldUnspecified);
</pre>
<p>
ein Ado-Recordset
<br>danke Herr Kosch
<br>
dann kommt das Füllern, was mir nicht gelingen will, der Compiler meckert.
<br>
Wie bekomme ich denn nen Blob hier rein ??
<pre>
var
MemStream : TMemoryStream;
FileStream : TFileStream;
begin
FileStream:= TFileStream.Create('d:\user\raja.bmp', fmOpenRead);
MemStream:= TMemoryStream.Create;
MemStream.CopyFrom(FileStream, 0);
FRecordset.Open(EmptyParam,EmptyParam,
adOpenUnspecified,adLockUnspecified,1);
FRecordset.AddNew(
VarArrayOf([
WideString('Field1'),
WideString('Field2'),
WideString('Field3')
]),
VarArrayOf([
sTest,sTest,MemStream]));
FRecordset.Update(Emptyparam,EmptyParam);
</pre>
<p>
danke im voraus
<br>
Heiko
Comment