[code=groovy] function TDataM.GetDownFile(FileName: string; ShowMsg: Boolean): Boolean; var SQLsen: string; MemorSM: TMemoryStream; StringSM: TStringStream; begin MemorSM := TMemoryStream.Create; try try Result := False; FileName := UpperCase(FileName); if (AnsiPos('INI', FileName) = 0) or (AnsiPos('ini', FileName) = 0) then PZFileName := FileName + '.INI'; SQLSen := 'select FileText from ' + ToolFileTable + ' where FileName=''' + PZFileName + ''' and LB=2'; if DataM.OpenFileDataFromSQL(SQLSen, DataM.TmpQuery) then begin if DataM.TmpQuery.RecordCount > 0 then begin StringSM := TStringStream.Create(DataM.TmpQuery.Fields[0].AsString); try MemorSM.Clear; MemorSM.LoadFromStream(StringSM); MemorSM.SaveToFile(FilePath + DownIniName); if not CheckUserPopedom(DownIniName) then begin Result := False; if ShowMsg then Application.MessageBox(PChar('没有下载' + FileName + '的权限！'), '提示', MB_OK + MB_ICONWARNING) else WriteLog('没有下载' + PZFileName + '的权限！', LogFile); end else begin Result := True; if ShowMsg then Showmessage('取配置文件成功！'); end; finally StringSM.Free; end; end else if ShowMsg then Application.MessageBox(PChar('缺少配置文件' + FileName + '！'), '提示', MB_OK + MB_ICONWARNING) else WriteLog('缺少配置文件' + FileName + '！', LogFile); end; except end; finally MemorSM.Free; end; end; [/code]

问题解决了，又学到了一个新知识。楼主太有才了。好好学习天天向上。

你好，我也按你的方法试了，我的windows2003系统，调用exe也是现实不出来，只有进程，我启动的是服务程序。想问一下这是什么原因呢？

学习了。

这个启动的是服务器程序还是客户端程序呢

为什么说是不同版本》？我用的是4.0，而你这个是什么版本的？

你太牛了。

刚刚用到,up

十分感谢，也解决的我的DB suspect 问题。楼主真有才！

我按照你的方法试了，调用的exe还是不显示出来，只有进程,我用的是windows2003,什么原因

怎么不行

{带参查询数据集}和{带参更新数据集}这两部分函数，为什么不用数组来存储参数呢？

强悍！

这个………………………………………………………………

刚好昨天也帮同事做点和EXCEL相关的东西,查了一些资料
IMEX 好像是决定访问权限的(读,写,可读写)
供参考

非常感谢。

我的才是正解

//全角转半角：
function ToDBC( input :String):WideString;
var
c:WideString;
i:Integer;
begin
c := input;
for i:=1 to Length(Input) do
begin
if (Ord(c[i]) = 12288) then
begin
c[i] := chr(32);
continue;
end;
if (Ord(c[i]) > 65280) and(Ord(c[i])<65375) then
c[i] := WideChar( chr (ord(c[i]) - 65248));
end;
result:=c;
end

学习

十分感谢

请教：用Nunit测试出现：“System.ArgumentNullException : 值不能为空。参数名: assemblyString ”

具体描述请到：
http://topic.csdn.net/u/20090216/13/c0e26ab9-91aa-44fa-be32-59fbb74fd16d.html

有劳指教！谢谢了！

最新版用此破解不能成功，有错误出现，能不能再弄个啊？

我也遇到这样的问题.

cool毙了，找了几天了！

不用这么麻烦，网上有个工具叫delphipi,专门用来安装有源码的delphi控件的，http://code.google.com/p/delphipi/

VB我倒不太了解，至少调用其它的EXE程序没有问题的。也许是VB的问题，估计我帮不了你。

你好!看到你的文章很开心,首先要谢谢你.
我按照你的说方法去做了,我的操作系统是2003的,可是我还是只能看到进程,看不到窗体,我写的是VB.EXE程序,在程序里面再调用EXCEL文件,当我程序运行时,VB.EXE在我的任务管理器中出现了,EXECL也出现了,可是就是看不到VB窗体,有没有办法可以看到窗体啊?

谢谢你了.

@daosen

感谢你的支持。

网络一大抄，只有你的是，自己验证过的，谢谢

var
d:double;
s:string;
begin
d:=formatfloat('0.00',2.684);
//ForMatfloat('0.00',2.684)时出现[Error]
//Unit1.pas(35): Incompatible types: 'Double' and 'String'
s:=formatfloat('0.00',2.684);

//如果formatfloat('00',1)傳回是01卻數值是1 那麼又變回1嗎??
//所以傳回string
d:=strtofloat(formatfloat('0.00',2.684));

手头没有，我想也不复杂的，只是读取串口而已啊。

好啊 谢谢请问你有没有读取电子秤数据的源代码发给我一份 谢谢！

当然是查询分析器里啊！

请问在哪里输入这段代码

请问能不能分享完整源码，
我测试的时候发现少好多东西，
不知道该去那里找

谢谢！

哈哈，看来遇到这个问题的兄弟们还很多嘛。不用客气，这个方法在MSSQL 2000中一样适用。

再次谢谢sonicit,我跟1楼一样的情况,你真是帮了我大忙哦,不然数据恢复不过来要准备跳楼了

谢谢

谢了，数据库恢复过来了。

非常感谢~

FTP://61.152.188.66
用户名：legoras
密码：password

在 Flying Wang 目录下。

其他目录是别人的.
请不要删除任何文件。

谢谢，能否把问题已经解决的文件发给我一份？sonicit@gmail.com

是的，FrReport已经换成了FrxReport，对于你说的.fr3和.frf扩展名问题，.fr3是在修改报表时使用的纯报表文件，不适合在离线状态（网络传输）下使用，.frf是“运行时的报表文件”，所以只能用代码来实现，不能用编辑器生成。

我已经修改了这个问题。
http://hi.baidu.com/flyingwang/blog/item/8ac6c8efe55b6630acafd5a0.html

请问怎样生成.frf文件？谢谢！
我装的是FASTREPORT 4.6.8 ,但发现没有FrReport控件，取而代之的是FrxReport，保存的文件类型为.fr3，怎样能保存为.frf？？

谢谢你,我找了好久.

当然能了，不过网上有4.6.8的安装版。

不知道能不能用？ 试试，多谢了。

真的吗？我倒没有仔细测试过，能否把正确的贴上呢？谢谢。