Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Бази";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

Як прочитати Blob і розібрати побайтно Знайти схожі гілки


Lnstr   (2002-12-04 17:31) [0]

Справа була в INTERBASE.
Треба взяти Блоб і побайтно його раздерібанітью
За порадою друзів, Применяю метод GetData (P), де P - динамічний масив, і - повний відлупцював. Валить нулі і 17 через рівні інтервали.
Нижче наведена моя непутевщіна.
Допоможіть, будь ласка, тільки про коди ДНК не нагадуйте.

with PL.BlobFieldName do begin
blsize: = BlobSize;
SetLength (P, blsize);
намагатися
if not GetData (P) then begin
MessageDlg (DisplayName + "is NULL", mtInformation, [mbOK], 0);
end else begin
Memo1.Lines.Add ( "BlobSiseList" + IntToStr (blsize));
for i: = 0 to 15 do begin
Memo1.Lines.Add ( "L" + IntToStr (i) + "" + IntToStr (P [i]));
end;
end;
в кінці кінців
SetLength (P, 0);
end;
end;



OlegE   (2002-12-04 17:40) [1]

procedure TfrmMain.Button1Click (Sender: TObject);
було
a: array [1..64] of byte;
b: TStream;
i: Integer;
s: String;
починати
b: = pFIBDataSet1.Createblobstream (pFIBDataSet1FD, bmRead);
b.Read (a, b.Size);
s: = "";
for i: = 1 to b.Size do s: = s + IntToStr (a [i]);
ShowMessage (s);
b.Free;
pFIBDataSet1.Transaction.CommitRetaining;
end;



Lnstr   (2002-12-05 11:18) [2]

// Спасибі, OlegE.
// У мене вийшло ось приблизно так

// Якщо написати таку функцію
function ReadString (var Strm: TIBBlobStream): string;
var s: string;
b: byte;
begin Strm.Read (b, sizeOf (b));
SetLength (s, b);
Strm.Read (s [1], b);
result: = s;
end;

// то можна застосувати її і схожі ось так

var Stream: TIBBlobStream;
// .......
TStream (Stream): = DM_PL.IBT_PL.CreateBlobStream (DM_PL.IBT_PLLIST, bmRead);
// ....
with Stream do begin
Memo1.Lines.Add (ReadString (Stream));
Memo1.Lines.Add (ReadString (Stream));
// ........
Free;
end;
// ......



сторінки: 1 вся гілка

Форум: "Бази";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.023 c
1-74695
DAT
2002-12-11 11:44
2002.12.23
PopUpMenu РґР »СЏ СЃР ° РјРѕРіРѕ РјРμРЅСЋ


1-74694
123000
2002-12-11 18:43
2002.12.23
ICQ


1-74785
b-Ars
2002-12-09 12:57
2002.12.23
Модальне вікно щодо Desktop


3-74543
Shved
2002-12-02 13:12
2002.12.23
Поле


3-74619
_toltec
2002-12-05 13:40
2002.12.23
UDF





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська