Re: Not enough storage is available to process this command.

rbuser

Hello all,

D6
RB: 7
W2K

We recieve an error when we try to export to a rtf format.
"Not enough storage is available to process this command."

Does not matter how many pages in the report. It just started blowing
chunks.
My coworker runs it on an xp machine and it works fine.

Could it be that I need to rebuild my export devices? Maybe something is
corrupt?

Thanks,
Tim

rbuser

I have a component BuilderControls\TRotatedLabel in the report that I having
issues with. Could this be the gremlin?

nicocizik

Hi Tim,

Rebuilding your export device packages would be a good starting place. You
may also want to contact the creator of the export device you are using and
see if this is a known issue.

--
Regards,

Nico Cizik
Digital Metaphors
http://www.digital-metaphors.com

rbuser

<<< FROM >>>
{***********************************************************}
{ }
{ Pragnaan ReportBuilder Export Devices }
{ }
{ Copyright ? 2000-2001 Pragnaan Software Private Limited }
{ http://www.pragnaan.com }
{ }
{***********************************************************}

{$I PsDefines.inc}
{$I PsRBDefines.inc}

unit PsRBExport_Main;
.
.
.
procedure TPsRBRTFDevice.DrawRotatedText(const AText: string;
AFontRotation: Integer; ALeft, ATop, AWidth, AHeight: Integer;
AAlignment: TPsTextAlignment; AFont: TFont);
var
Bmp: TBitmap;
begin
if FExportCanceled or not IncludeImages then Exit;
Bmp := GetRotatedTextBitmap(AText, AFontRotation, ALeft, ATop,
AWidth, AHeight, AFont); <<< THIS IS WHERE THE ISSUE IS >>>
try
EncodeImage(Bmp, ALeft, ATop, Bmp.Width, Bmp.Height, False, False);
finally
Bmp.Free;
end;
end;

<<< FROM >>>
{***********************************************************}
{ }
{ Pragnaan ReportBuilder Export Devices }
{ }
{ Copyright ? 2000-2001 Pragnaan Software Private Limited }
{ http://www.pragnaan.com }
{ }
{***********************************************************}

{$I PsDefines.inc}
{$I PsRBDefines.inc}

unit PsRBExport_RTF;
.
.
.
function TPsRBExportDevice.GetRotatedTextBitmap(const AText: string;
AFontRotation: Integer; AX, AY: Integer; ATextWidth, ATextHeight: Double;
AFont: TFont): TBitmap;
begin
Result := TBitmap.Create;
with Result do
begin
Width := Round(ATextWidth);
Height := Round(ATextHeight); <<< BLOWS UP HERE >>>
Transparent := True;
Canvas.Font := AFont;
end;
PsAngleText(AText, AFontRotation, Result, AX, AY);
end;

I do believe that they are passing a integer into a double. I think that
this is the issue.