Головна сторінка
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.56 MB
Час: 0.035 c
1-74790
Dakus
2002-12-10 11:33
2002.12.23
Класи


1-74813
^ Sanya
2002-12-10 21:41
2002.12.23
Введення пароля перед запуском ....


14-74935
Олександр
2002-12-01 09:26
2002.12.23
Delphi 7


14-74979
seacat
2002-12-03 12:40
2002.12.23
inaccessible value під час налагодження


4-75030
wmz
2002-11-08 18:57
2002.12.23
Як можна переглянути





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