如何把smallint型指针指向地址的内容都到byte数组中
怎么把smallint型指针指向地址的内容都到byte数组中
过程是这样的
procedure TForm1.WPalm1Capture(ASender: TObject; state: Integer;
var veindata:smallint; length: Integer);
veindata是数据首地址,length是长度,
怎么把数据读出来存到oracle的blob字段中,
求教 不会delphi啊
------解决方案--------------------
var
MS : TMemoryStream;
begin
MS := TMemoryStream.Create;
MS.Write(veindata , length);
MS.Position := 0;
//打开数据表,AdoTable.Open;
//再定位数据行
TBlobField(AdoTable.FieldByName('xx')).LoadFromStream(MS);
MS.Free;
AdoTable.Post;
//...
end;
过程是这样的
procedure TForm1.WPalm1Capture(ASender: TObject; state: Integer;
var veindata:smallint; length: Integer);
veindata是数据首地址,length是长度,
怎么把数据读出来存到oracle的blob字段中,
求教 不会delphi啊
------解决方案--------------------
var
MS : TMemoryStream;
begin
MS := TMemoryStream.Create;
MS.Write(veindata , length);
MS.Position := 0;
//打开数据表,AdoTable.Open;
//再定位数据行
TBlobField(AdoTable.FieldByName('xx')).LoadFromStream(MS);
MS.Free;
AdoTable.Post;
//...
end;