Mega Code Archive
Ole ve blob alanlar arasinda kayit
<![CDATA[
//Blob alana kayit
procedure TForm1.Button1Click(Sender: TObject);
var
Buf : String;
Uzunluk : Integer;
TempStream : TMemoryStream;
begin
Table1.Edit;
TempStream := TMemoryStream.Create;
OleContainer1.SaveToStream( TempStream );
TempStream.Position := 0;
Uzunluk := TempStream.Size;
SetLength(Buf,Uzunluk+1);
TempStream.Read(Buf[1],Uzunluk);
Table1['XX1']:=Buf;
TempStream.Free;
Table1.Post;
end;
//OLE'ye kayit
procedure TForm1.Button2Click(Sender: TObject);
var
Buf : String;
Uzunluk : Integer;
TempStream : TMemoryStream;
begin
TempStream := TMemoryStream.Create;
Buf:=Table1['XX1'];
Uzunluk := Length(Buf);
TempStream.SetSize(Uzunluk+1);
TempStream.Write(Buf[1],Uzunluk);
TempStream.Position := 0;
OleContainer1.LoadFromStream( TempStream );
TempStream.Free;
end;
]]>