procedure TForm1.Button1Click(Sender: TObject); var tempStream: TMemoryStream; imageAttribute: array[0..9] of char; begin tempStream := TMemoryStream.Create; try with DM.Query2 do begin TBlobField(FieldByName('poster')).SaveToStream(tempStream); if tempStream.Position > 0 then begin tempStream.Position := 0; tempStream.ReadBuffer(imageAttribute, 10); Edit1.Text := imageAttribute; end; end; finally tempStream.Free; end; end;(注:做了一個TEST、NI自己看看「Edit1.Text」中内容)
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
————————————————————————————————————
格式要读出来才能分辨
不过太野蛮。
var
tempStream: TMemoryStream;
imageAttribute: array[0..9] of char;
begin
tempStream := TMemoryStream.Create;
try
with DM.Query2 do begin
TBlobField(FieldByName('poster')).SaveToStream(tempStream);
if tempStream.Position > 0 then
begin
tempStream.Position := 0;
tempStream.ReadBuffer(imageAttribute, 10);
Edit1.Text := imageAttribute;
end;
end;
finally
tempStream.Free;
end;
end;(注:做了一個TEST、NI自己看看「Edit1.Text」中内容)