标签: delphi-2006

Delphi中的宽字符串兼容性问题

在使用Delphi 2006的dll构建中

Foo(aPath: widestring);
begin
  _rootPath := aPath;
end;
Run Code Online (Sandbox Code Playgroud)

在使用Delphi 2010构建的可执行文件中

_Foo := GetProcAddress(FooModule,’Foo’);
_Foo(‘123456’);
Run Code Online (Sandbox Code Playgroud)

进入dll,aPath ='123'.事实上,我通过的任何字符串都会被切成两半.

1.)为什么我的文字减半?2.)我该如何解决?

delphi delphi-2006 widestring delphi-2010

1
推荐指数
1
解决办法
714
查看次数

通过 ClientDataSet 保存时禁用 XML 文件中的 Change_Log

这是我之前问题的延续。

当使用方法将数据保存在 ClientDataSet 中时,我不希望 XML 文件中包含 PARAMS CHANGE_LOG 数据ClientDataSet1.SaveToFile()

我的代码如下所示:

ClientDataSet1.Insert;
ClientDataSet1.FieldByName('Name').AsString:= 'AAA';
ClientDataSet1.Append;
ClientDataSet1.SaveToFile('c:\Test.xml',dfxml);
Run Code Online (Sandbox Code Playgroud)

我怎样才能做到这一点。

delphi delphi-2006

1
推荐指数
1
解决办法
2945
查看次数

列出Record的元素\字段

是否可以通过类型信息获取记录的元素或字段列表类似于类的已发布属性的列表?

谢谢 !

delphi delphi-2006

1
推荐指数
1
解决办法
1699
查看次数

德尔福 - 如何找到定期"鬼"托盘气球弹出窗口的来源?

我有一个D2006应用程序,通过托盘气球提示通知各种事件.每隔一段时间,但不经常 - 比如说应用程序的10次调用中的1次 - ,其中一个提示决定它会一次又一次地弹出......永远.唯一阻止它的是关闭应用程序.

如果应用程序发出另一个气球int,它将替换幻像提示,但在新提示超时后,幻像提示返回.同样,如果我关闭幻像提示,它会立即返回.

我已经验证了创建提示的代码没有被重复调用.暗示在某处更深入肠道.

    MainForm.TrayIcon1.BalloonFlags   := Flag ;
    MainForm.TrayIcon1.BalloonTitle   := Title ;
    MainForm.TrayIcon1.BalloonHint    := Message ;
    MainForm.TrayIcon1.BalloonTimeout := Delayms ;
    MainForm.TrayIcon1.ShowBalloonHint ;
Run Code Online (Sandbox Code Playgroud)

delphi trayicon hint delphi-2006 popup-balloons

1
推荐指数
1
解决办法
752
查看次数

如何在Delphi中的类型库编辑器中进行复制和粘贴?

救命

我正忙于对Datasnap项目中的类型库进行更改.

如何在类型库编辑器中复制和粘贴文本?

我正在使用BDS2006

编辑1

有没有办法在不使用TLB编辑器的情况下选择类型库?

编辑2

有没有办法在类型库编辑器的"属性"和"用户"屏幕中进行复制和粘贴?

delphi typelib delphi-2006 com-hell

0
推荐指数
1
解决办法
451
查看次数

Delphi应用程序挂断了

这个Delphi 2006应用程序已成功运行了几年.我在DPR文件中进行"初始化"之前已经缩小了它的范围,因此它在任何编写的代码执行之前挂起.我按下"运行"图标,它从不显示任何其他内容,只是停止运行.提供的信息不多,有什么想法吗?

delphi delphi-2006

0
推荐指数
1
解决办法
308
查看次数

Delphi 2006使用单个ansi代码页从/转换为法语/荷兰语/德语

我需要使用Delphi 2006(没有任何第三方单元/组件)从法语/荷兰语/德语进行翻译.

这3种语言的代码页为1252.我们的数据库符合UTF-8标准,所以此时我依赖于表中所有值都是UTF-8的事实.我应该对此假设有信心吗?这样会运行良好,或者我应该担心UTF-8 - >代码页1252的差异,如果有的话?我不明白UTF-8和代码页之间的区别(例如,我理解前127个字节是相同的,并且与第128个字节的请求是不同的).

其次,我需要在某些领域进行搜索.我可以依赖D2006的ANSIUpperCase功能吗?或者我应该做一个自定义功能,来对待每个特殊角色?

LE:数据以UTF-8格式存储.

提前致谢!

delphi utf-8 codepages delphi-2006

0
推荐指数
1
解决办法
527
查看次数

Delphi 2006 - 常规参数无类型

在一个例程中可以有一个参数,它可以同时是一个类型,也可以是一个字符串?我知道我可以通过重载例程来实现这一点,我想是否有可能以另一种方式做到这一点.

假设我有这种类型 - TTest =(t1,t2,t3).我希望有一个例程接受TTest类型的参数,但同时也是一个String,所以我可以称之为myproc(t1)或myproc('blabla')

delphi delphi-2006

0
推荐指数
1
解决办法
187
查看次数

传递WideString引发异常

我如何通过Unicode字符串异常引发消息并捕获它:

try
  if some <> some2 then 
    raise Exception.Create('Cannot connect to Sever');
...
...

except
on E: Exception do 
   mError(E.Message);
   exit;
end;
Run Code Online (Sandbox Code Playgroud)

这个想法是本地化。

delphi unicode delphi-2006

0
推荐指数
1
解决办法
104
查看次数