Hallo,<p>
ich versuche, in ein Recordset, einen Blob-Wert einzutragen.
<p>
ein Stückchen Code.
<pre>
FRecordset : _recordset
aADOStream :_Stream;
aADOStream := CoStream.Create;
aADOStream.Type_ := adTypeBinary;
aADOStream.LoadFromFile(theBarcodeLocation);
theFRecordset.Fields.Item['Field7'].Value := aADOStream.Read(adReadAll); <<-- warning
</pre>
<p>
Der Code funktioniert.<br>
Aber Delphi6 bringt mir eine Warnung an der markierten Stelle.
<br>
type cast zu OleVariant brachte auch nichts.<br>
Als vorsichtiger Coder will ich die Warnung natürlich raushaben. Was kann ich tun ?
<p>
Danke im voraus
<br>
Heiko
<p>
ps: die englische Fehlermeldung ist "constant expression violates subrange bounds"
ich versuche, in ein Recordset, einen Blob-Wert einzutragen.
<p>
ein Stückchen Code.
<pre>
FRecordset : _recordset
aADOStream :_Stream;
aADOStream := CoStream.Create;
aADOStream.Type_ := adTypeBinary;
aADOStream.LoadFromFile(theBarcodeLocation);
theFRecordset.Fields.Item['Field7'].Value := aADOStream.Read(adReadAll); <<-- warning
</pre>
<p>
Der Code funktioniert.<br>
Aber Delphi6 bringt mir eine Warnung an der markierten Stelle.
<br>
type cast zu OleVariant brachte auch nichts.<br>
Als vorsichtiger Coder will ich die Warnung natürlich raushaben. Was kann ich tun ?
<p>
Danke im voraus
<br>
Heiko
<p>
ps: die englische Fehlermeldung ist "constant expression violates subrange bounds"