var
MS:TMemoryStream;
begin
MS:=TMemoryStream.Create;
try
MS.LoadFromFile('D:\A.xls');
MS.Position:=0;
XLSReadWriteII41.LoadFromStream(MS);
fianlly
MS.Free;
end;
Why need open file??
LoadFromStream raise exception "can`t open file """
-
- Posts: 10
- Joined: Thu Nov 16, 2006 7:14 am
-
- Posts: 10
- Joined: Thu Nov 16, 2006 7:14 am
Re: LoadFromStream raise exception "can`t open file """
you always fix bug too late.
Maybe:
xlsReadII4.pas
move this code to the top of this procedure:
procedure TXLSReadII.LoadFromStream(Stream: TStream);
.....
{$IFDEF USE_MSSTORAGE} //move to top
FXLSStream.ExtraObjects := FXLS.ExtraObjects; //move to top
FXLSStream.SourceStream := Stream; //move to top
{$ENDIF} //move to top
Maybe:
xlsReadII4.pas
move this code to the top of this procedure:
procedure TXLSReadII.LoadFromStream(Stream: TStream);
.....
{$IFDEF USE_MSSTORAGE} //move to top
FXLSStream.ExtraObjects := FXLS.ExtraObjects; //move to top
FXLSStream.SourceStream := Stream; //move to top
{$ENDIF} //move to top