文熊-CSDN博客

原创 codetyphon下调用flask+LTP实现中文分词

在NLP方面中文分词CWS现如今LTP的准确率相当高。不过NLP和CWS一般都用python来实现。为了方便codetyphon，delphi等调用分词功能，所有用flask做了一个本机的HTTP服务。现在可以用python XXX.py 启动服务。在codetyhon下，可以用httpcliet来调用。也可以用THTTPSend等类似组件代替，关键要注意字符串编码。

2022-11-18 14:17:37 935 1

原创 codetyphon 7.6 里面的TRegExpr 正在表达式多行模式

codetyphon 7.6 里面的TRegExpr 正在表达式多行模式设置很简单里面的有个属性 ModifierS设置为False，ModifierM设置为True。正则表达式以多行模式运行，每行可以分别匹配^和$(行首和行尾)。

2021-11-24 14:36:15 300

原创 Codetyphon下TShellTreeView改造增加显示桌面和我的文档

Codetyphon下TShellTreeView默认显示的内容还是几个盘符。在Windows熏陶下，感觉这个样子特别古老。定位常用目录不方便。经过跟踪源码，发现TShellTreeView本质上是T。

2021-06-11 11:45:35 349 1

原创 CEF4 Chromium 指定文件下载到目录和文件下载完成提示

1.指定文件下载目录和文件名在onBeforeDownload 事件里面调用callback.Cont(“文件名”,false); 2.文件下载完成提示，直接给外国人的答案，在onDownloadUpdated事件中：if downloadItem.IsInProgress then ShowStatusText('Download in progress');//这是在下载过程中 if downloadItem.IsComplete then ShowStatusTe...

2020-09-25 14:45:29 1485

原创 Win10下64位，使用CodeTyphon开发mormot程序的几个坑

1.Mormot下载版本，要注意static目录下面有没有配套的如x86_64-win64子目录下的*.o文件，要不有9-10个错误文件找不到。2.Mormot下面Synopse.inc文件里面对应的FPC版本如3-3下面要有{$define FPC_PROVIDE_ATTR_TABLE} 定义，要不不能编译，或者能编译会出现运行期错误。3.工程设置里面要注意选择LCLWidgetType:=win32，要不会出现libmsvcrt.a文件找不到提示。本人实测，可以运行范例1，范例4。...

2020-06-09 10:48:41 1927

原创 codetyphon7.0 fastrepot中文换行首字乱码问题解决方案

codetyphon7.0 fastrepot中文换行首字乱码问题解决方案找到了，很简单就是Unit LR_Class;里面的WrapLine 过程const s: String 改成const s: wideStringch: char; 改成 ch: widechar;如下，成功解决。procedure WrapLine(const s: wideString); var i, cur, beg, last, len: Integer; Was...

2020-05-15 08:00:52 257

原创 codeTyphon7.0里面的cef版本是79.0.10，貌似79.xxx都可以用

codeTyphon7.0里面的cef版本是79.0.10，貌似79.xxx都可以用，81.XXX，实测不能用，提示版本不对。3.XXX的也不行。下载的时候要注意。下载地址在pas提示里面// ************************************************************************// ***************************** CEF4Delphi *******************************// *

2020-05-14 16:48:39 1443

原创实测JQuery操作Frame可用格式，Delphi 下 TChromium 控件里面的JavaScript

只代表一种存在，不参与争论。网上找了很多，测试了一些，掉了几次坑，可能是输入不标准引起。frame里面的JQuery操作外面的DOM元素，$("#XXX",parent.document)本级操作下级名为（XXX）frame里面的（YYY）元素，$("#XXX").contents().find("#YYY")XXX,YYY都是ID...

2019-02-28 12:57:04 392

原创 SQL left join 条件位置问题

今日把一个where A.ID*=b.ID and b.AAA='AAA' 语句改成Left jion以为很简单，就这么改了，完了结果集出来比原来少了那些B表空值的仔细一看，原来Left Jion b on A.ID=b.ID ，还需要把 and B.AAA='AAA'移过来一起仅A.XXX='XXX'放在Where下面写一笔存档

2015-09-17 14:44:43 639

原创 Delphi中WebBrowser用IHTMLDocument2自动填表中的Frame问题

网上找了一堆，没有找到Frame嵌套情况的。Frame里面的东西，相当一个独立的网页。它的JavaScript环境是独立的，变量是受保护的。所以，要先找到具体的Frame，然后再执行脚本。这段代码使用了递归。抛砖引玉。var doc: IHTMLDocument2; ICount: Integer; procedure showFrame(doc: IHTMLDocu

2015-05-22 11:51:40 1309

htits2008的专栏