| holyszq
41085
|
2010/10/15 8:36:57 |
| 谢谢分享，可是为什么把服务器放在公网上，会连接不上呢？ |
| 1314tim
39808
|
2010/4/7 11:33:53 |
| 不知道怎么链接有密码的MySQL? |
| sunyesy
39673
|
2010/3/10 14:02:12 |
IsOPenAutoPost: boolean; //是否支持自动Post数据 默认是支持
IsOPenAutoPost 设置成false 后
如何保存修改过的数据呢？ |
| whshen
39318
|
2009/12/26 9:02:10 |
| 哈，被杀软干掉了 |
| mmzmagic
39296
|
2009/12/23 23:09:34 |
偶建了一个QQ群，号码：15637473
希望能建立一个高质量的编程艺术交流的平台，共同进步共同提高。 |
| mmzmagic
39294
|
2009/12/23 15:15:31 |
做了不少优化和完善工作，
有兴趣的朋友请从svn上下载最新版本
http://mmzrmo4delphi.googlecode.com/svn/trunk/ mmzrmo4delphi-read-only |
| ghs_79
38877
|
2009/10/25 17:38:56 |
客户端联不上的原因找到了
是我线程开的太多，联接数超过200了。程序中默认只有200个联接。 |
| ghs_79
38870
|
2009/10/24 21:29:27 |
我用此架构做个数据交换中间件，有20个客户端，用一会就联不上了，不知何因。
希望有人指点一二。
感觉哪里分配的内存没有释放，总是4的倍数变化（增加或者减少）。
服务器端用的就是这里的程序，只是改了几个接收数据的命令名。
客户端每次调用时创建一个TRmoHelper,用完先断开(RmoClient.FRmoClient.DisConn)，再释放RmoClient.Free; |
| silenced
38783
|
2009/10/11 15:27:54 |
| 是感染了专门给 delphi 设计的 induc.a 病毒，问题不大。 |
| comerose
38732
|
2009/9/30 3:11:28 |
W32/Induc
中这个病毒了! |
| shield
38703
|
2009/9/26 21:39:21 |
downloading, 学习一下。
顶楼主 |
| wcy76
38652
|
2009/9/21 0:12:33 |
客户端只用单个文件（Exe），temp.mdb由程序自动生成是不是好点，分发时方便一点
uses ComObj, ActiveX
const
SConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;';
function GetTempPathFileName(): string;
//取得临时文件名
var
SPath, Sfile: array[0..254] of char;
begin
GetTempPath(254, SPath);
GetTempFileName(SPath, '~SM', 0, Sfile);
result := Sfile;
DeleteFile(PChar(result));
end;
function CreateAccessFile(FileName: string; PassWord: string = ''): boolean;
//建立Access文件，如果文件存在则失败
var
STempFileName: string;
vCatalog: OleVariant;
begin
STempFileName := GetTempPathFileName;
try
vCatalog := CreateOleObject('ADOX.Catalog');
vCatalog.Create(format(SConnectionString, [STempFileName, PassWord]));
result := CopyFile(PChar(STempFileName), PChar(FileName), True);
DeleteFile(STempFileName);
except
result := false;
end;
end;
procedure TINFCJF.FormShow(Sender: TObject);
begin
if not FileExists(PChar(extractfilepath(paramstr(0)) + 'temp.mdb')) then
begin
try
CreateAccessFile(PChar(extractfilepath(paramstr(0)) + 'temp.mdb'), '');
except
MessageBox(GetActiveWindow(), '创建临时数据库失败！', '提示信息！', mb_iconwarning);
abort;
end;
end;
end; |
| lingdi
38396
|
2009/8/17 22:29:51 |
| 卡巴2010认为Demo程序是病毒 |
| cocobom
38367
|
2009/8/13 11:50:55 |
| 有压缩传输和多线程传输功能吗 |
| liudinglong
38228
|
2009/7/31 13:25:03 |
| 谢谢了啊！ |
| weijia3624
38169
|
2009/7/27 23:09:22 |
//获取下一条记录的ID
QryShower.Append;
QryShower.FieldByName('Caption').AsString := '新增记录' + QryShower.FieldByName('id').AsString;
QryShower.FieldByName('parentid').AsInteger := -1;
QryShower.FieldByName('Flevel').AsInteger := 10;
QryShower.FieldByName('kind').AsInteger := 1;
QryShower.Post;
你的以上代码可以直接运行,为什么我的以下代码就不能直接运行?
with QryShower do
begin
Close;
sql.Clear;
sql.Add('select * from treeinfo');
Open;
end;
'无法找到selct * from treeinfo'
怎样才能像直接用tadoquery像平常使用. |
| jianlei
38137
|
2009/7/24 21:49:53 |
非常感谢,也说一下小BUG,希望下一版本修改.
使用特殊字符更新时,如字串中有单数个'或%,会引用更新出错 |
| excel_fore
38123
|
2009/7/23 18:58:53 |
好东西，先下下来看看
支持事务吗？
多表如何更新？ |
| zhy19806
38111
|
2009/7/22 18:30:53 |
| 如何进行客户验证呢？不然谁都可以连服务器，好不安全哦。 |
| dovehypo
38107
|
2009/7/22 15:26:24 |
| mmzmagic 是不是不支持模糊查询啊（ＭＳＳＱＬ），一用通配符就报错 |
