Login ProductsSalesSupportDownloadsAbout |
Home » Technical Support » DBISAM Technical Support » Incident Reports » Incident Reports Addressed for Version 4.11 » View Incident Report |
Serious |
Reported By: Mark Pickersgill Reported On: 9/28/2004 For: Version 4.10 Build 1 |
// Quick sample code - needs appropriate table with a MEMO blob type. // The BLOB should be filled with 1026 or 2051 etc bytes. var r, i : integer; buf : array[0..1024] of byte; strm : TStream; s : string; begin strm := tbl1.CreateBlobStream(tbl1.FieldByName('XML'), bmRead); r := strm.Read(buf, SizeOf(buf)); while r > 0 do begin s := ''; for i := 0 to r-1 do begin s := s + Char(buf[i]); end; Memo1.Lines.Text := Memo1.Lines.Text + s; r := strm.Read(buf, SizeOf(buf)); end; end;
This web page was last updated on Tuesday, April 23, 2024 at 08:39 AM | Privacy PolicySite Map © 2024 Elevate Software, Inc. All Rights Reserved Questions or comments ? E-mail us at info@elevatesoft.com |