Размер файла "0"
var
FName, FPath, FExt: string;
Ti: TuniImageFormat;
begin
case (Sender as TMenuItem).Tag of
1:
begin
Ti := tiJPG;
FExt := '.jpg'
end;
2:
begin
Ti := tiPNG;
FExt := '.png'
end;
3:
begin
Ti := tiGIF;
FExt := '.gif'
end;
4:
begin
Ti := tiBMP;
FExt := '.bmp'
end
else
begin
Ti := tiJPG;
FExt := '.jpg'
end;
end;
FPath := UniServerModule.LocalCachePath;
FName := 'EMEimg' + IntToStr(FCnt) + FExt;
try
case pcEM.ActivePage.PageIndex of
0: begin
EMECanvas.SaveToFile(FPath + FName, Ti);
UniSession.SendFile(FPath + FName);
end;
1: begin
EMICanvas(FPath + FName, Ti);
UniSession.SendFile(FPath + FName);
end;
end;
finally
Inc(FCnt);
end;
end;