DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
lazarus/fpc/Free Pascal
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: tkzcol
今日帖子: 4
在线用户: 1
导航: 论坛 -> 发布控件 斑竹:liumazi,ruralboy  
作者:
男 ujjldn (ujjldn) ★☆☆☆☆ -
盒子活跃会员
2011/9/30 11:50:16
标题:
FastReport_VCL_4_12_for_XE2___Full_Source 浏览:4407
加入我的收藏
楼主: http://115.com/file/bhfcildw#
FastReport_VCL_4_12_for_XE2___Full_Source.zip

原码版
----------------------------------------------
-
作者:
男 gregma (gregma) ★☆☆☆☆ -
普通会员
2011/9/30 14:04:48
1楼: 谢谢,lz是好人
----------------------------------------------
-
作者:
男 bjzhq ( oce) ★☆☆☆☆ -
盒子活跃会员
2011/9/30 17:51:31
2楼: 是企业版吗?
----------------------------------------------
-
作者:
男 chc121 ( ) ★☆☆☆☆ -
盒子活跃会员
2011/9/30 18:24:32
3楼: xe2上安装不了,提示comobj.dcu文件找不到
----------------------------------------------
-
作者:
男 alexmahone (虢之子) ▲▲▲▲▲ -
普通会员
2011/10/1 12:16:19
4楼: 貌似不是企业版
----------------------------------------------
-
作者:
男 skywin (skywin) ★☆☆☆☆ -
盒子活跃会员
2011/10/2 0:19:26
5楼: FastReport最近的版本都有一些Bug,暂不用新版
----------------------------------------------
为大、中型企业提供专业的人事|考勤|工资|门禁|验厂|件资|消费|一卡通管理系统.(销售QQ:228808227),公司网址:http://www.gzanysoft.com
作者:
男 yepemig (yepemig) ★☆☆☆☆ -
盒子活跃会员
2011/10/23 0:18:08
6楼: 我装成这样.如图:
此帖子包含附件:
JPEG 图像
大小:112.7K
----------------------------------------------
-
作者:
男 mochizuki (mochizuki) ★☆☆☆☆ -
普通会员
2011/10/23 15:12:35
7楼: 回6楼

方法一:
第一:将Source目录内的frxRes.pas 修改:
procedure TfrxResources.AddXML(const Str: AnsiString);
var
Stream: TStringStream;
begin
Stream := TStringStream.Create(UTF8Encode(String(str)));
LoadFromStream(Stream);
Stream.Free;
end;
第二:将\Res\Chinese目录内的xml文件用文本文件打开,将其另存为ASCII格式,然后运行mk.bat
第三,重新用recompile.exe编译


方法二:
可以自己编译一个frcc.exe,替换Res目录下的,然后再recompile即可。  delphi XE测试界面都正常。

用delphi XE建立一个console工程,名称为frcc,代码如下:
program frcc;
{$APPTYPE CONSOLE}
uses
   SysUtils,
   Classes,
   StrUtils;
var
   xml: string;
   list: TStringList;
   i: Integer;
   fileName : string;
   lineWidth: integer;
   line: string;
begin
   try
if ParamCount < 1 then
begin
   Writeln('no input');
   Exit;
end;
xml := ParamStr(1);
fileName := ExtractFileName(xml);
fileName := Copy(fileName, 1, Length(fileName) - 4); //delete ext .xml
list := TStringList.Create();
list.LoadFromFile(xml, TEncoding.UTF8);
xml := list.Text;
list.Clear;
list.Add('unit ' +   fileName + ';');
list.Add('');
list.Add('interface');
list.Add('{$I frx.inc}');
list.Add('implementation');
list.Add('uses frxRes;');
list.Add('const resXML =');
xml := ReplaceText(xml, #13, '');
xml := ReplaceText(xml, #10, '');
i := 1;
while True do
begin
   if (i + 80) < (Length(xml) + 1) then
       lineWidth := 80
   else
       lineWidth := Length(xml) + 1 - i;
   if lineWidth = 0 then
       break;
   line := Copy(xml, i, lineWidth);
   list.Add(QuotedStr(line) + '+');
   i := i + lineWidth;
end;
list.Add(''''';');
list.Add('initialization');
list.Add('   frxResources.AddXML(Utf8Encode(resXML));');
list.Add('');
list.Add('end.');
list.SaveToFile(ChangeFileExt(ParamStr(1), '.pas'), TEncoding.Default);
list.Free;
   except
on E:Exception do
   Writeln(E.Classname, ': ', E.Message);
   end;
end.
----------------------------------------------
-
作者:
男 birdishman (birdishman) ★☆☆☆☆ -
普通会员
2011/10/24 14:04:31
8楼: for XE2 怎么安装?
----------------------------------------------
-
作者:
男 birdishman (birdishman) ★☆☆☆☆ -
普通会员
2011/10/24 17:57:21
9楼: 费了老鼻子劲终于装上了
此帖子包含附件:
JPEG 图像
大小:153.2K
----------------------------------------------
-
作者:
男 ttapeng (ttapeng) ★☆☆☆☆ -
盒子活跃会员
2011/10/24 20:07:04
10楼: D7,能装上吗?
----------------------------------------------
-
作者:
男 superalimyso (alimyso) ★☆☆☆☆ -
盒子活跃会员
2011/11/1 14:17:38
11楼: 这个里面没有XE2啊,recompile.exe里面都没有XE2的编译选项啊,提供的LibD16的文件夹里面的dpk都安装不起来啊,楼主给一个可以安装的版本啊
----------------------------------------------
-
作者:
男 gz_runwe (gz_runwe) ★☆☆☆☆ -
盒子活跃会员
2011/11/5 13:04:16
12楼: 兄弟,下载链接失效了,谁下了能否共享一下?
----------------------------------------------
-
作者:
男 fantast79 (三影咖啡) ★☆☆☆☆ -
普通会员
2011/11/5 15:41:45
13楼: 先作个标记吧,正在下X2呢
----------------------------------------------
-改行了还是免不了要写程序。
作者:
男 learndelphi (beside) ★☆☆☆☆ -
盒子活跃会员
2011/11/14 13:14:46
14楼:  birdishman

xe2怎么安装啊
----------------------------------------------
-
作者:
男 wanglan (知心爱人) ★☆☆☆☆ -
普通会员
2011/11/14 16:41:48
15楼: xe2怎么安装啊
 
请发帖说说,让弟兄们也学习学习
----------------------------------------------
-
作者:
男 learndelphi (beside) ★☆☆☆☆ -
盒子活跃会员
2011/11/14 17:49:48
16楼: 我从fast网站上下了个最新的版本
用那个recompile一下安装上去了。
但是导出pdf文件 汉字乱码
还有部分菜单汉字不能正确显示。
----------------------------------------------
-
作者:
男 ywcljty (ywcljty) ★☆☆☆☆ -
普通会员
2011/12/10 21:36:58
17楼: 成功安装到xe2下
----------------------------------------------
-
作者:
男 ywcljty (ywcljty) ★☆☆☆☆ -
普通会员
2011/12/10 21:37:41
18楼: 使用暂时没发现问题
----------------------------------------------
-
作者:
男 delphizhou (周洲) ★☆☆☆☆ -
普通会员
2011/12/10 22:32:50
19楼: 支持。很好。
----------------------------------------------
Delphi 愛好者
只有想不到,沒有做不到,
通過軟件把理想成為現實,
軟件以用為本。
作者:
男 wiseinfo (wisienfo) ★☆☆☆☆ -
普通会员
2011/12/11 0:38:23
20楼: 还是个老样子。
----------------------------------------------
-
作者:
男 bxhjlf (狂飙蜗牛) ★☆☆☆☆ -
普通会员
2011/12/11 15:01:17
21楼: 最近也升级到了XE2 Update1,提示comobj.dcu文件找不到,更别说到后面解决乱码的问题了,上网也找了还是没找到
----------------------------------------------
-
作者:
男 ywcljty (ywcljty) ★☆☆☆☆ -
普通会员
2011/12/12 12:50:47
22楼: comobj改为SYSTEM.WIN.COMOBJ
ok
----------------------------------------------
-
作者:
男 lygzz (lygzz) ★☆☆☆☆ -
普通会员
2011/12/19 11:18:29
23楼: firemonkey 工程下怎么没有frxreport呢?
----------------------------------------------
-
作者:
男 ckwong (ck) ★☆☆☆☆ -
盒子活跃会员
2012/1/13 1:30:47
24楼: 在xe2 sp3 安裝下彈出沒有 fqb160.bpl, 有沒有解決方法
----------------------------------------------
-
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v3.0.1 版权所有 页面执行89.84375毫秒 RSS