BorlandTalk.com

Erkan KURTULUŞ · Guest

Hi Everyboy,

i have a problem. i would like store excel file as stream in DB. However
i can't do it. Altough i stored excel file in DB, i can't read it next
step. Following my source code.

var
Ms: TMemoryStream;
Fs: TFileStream;
begin
Ms := TMemoryStream.Create;
Ms.LoadFromFile('Sample.xls');

adodTemplate.Append;
adodTemplateData.LoadFromStream(Ms);
adodTemplate.Post;

Fs := TFileStream.Create('SampleNext.xls', fmCreate);
adodTemplateData.SaveToStream(Fs);

FreeAndNil(Ms);
FreeAndNil(Fs);
end;

'SampleNext.xls' couldn't be opened with Excel. And these files' size
are diffrent.

Thanks...