| | | | |

2021年2月11日

摘要：在老毛子的文章里看到的获取本地ip的方法。实现蛮简单。没找到多少关于idStack相关的说明，有空再去外网溜达看看。先记录下。 program 获取本地ip; {$APPTYPE CONSOLE} {$R *.res} uses IdStack; function GetIPLocal: strin 阅读全文

posted @ 2021-02-11 18:08 fan2006 阅读(94) 评论(0) 推荐(0) 编辑

2021年1月25日

判断素数

摘要：看到一个利用数字6来判断一个自然数是否是素数。一个自然数可以写成fx=6*k+b(b=0,1,2,3,4,5)的形式。排除自然数为2或者3的特殊情况,我们可以看到b=0,2,3,4的时候都与6有公约数,所以这时候一定不是素数。也就是一个自然数除以6的余数是1或者是5的时候才有可能是素数。之所以说有可阅读全文

posted @ 2021-01-25 15:52 fan2006 阅读(216) 评论(0) 推荐(0) 编辑

2021年1月23日

D语言json解析

摘要：主要是使用D语言获取网页数据并进行json解析。 module readnet; import std.net.curl; import std.json; import std.stdio; import std.string; void main() { auto responsetext=ge 阅读全文

posted @ 2021-01-23 20:34 fan2006 阅读(149) 评论(0) 推荐(0) 编辑

2021年1月6日

httpclient的简单运用。

摘要： delphi的httpclient库能够操作http和https链接。应该是XE以后新出的库。试了试用来抓网页还行。里面使用了HtmlParserEx库。只支持xe3以后的版本，看说明还能支持其他平台。该库使我们能够调用css选择器或xpath来取得我们需要的数据。 program 获取图片链接; 阅读全文

posted @ 2021-01-06 18:23 fan2006 阅读(156) 评论(0) 推荐(0) 编辑

2020年12月31日

DataFrame to_excel with border lines

摘要：给pandas的DataFrame存到excel文件里并添加表格框线。主要使用styleframe包。 details见代码。 # -*- coding: utf-8 -*- """ Created on Sun Mar 17 19:55:27 2019 @author: Fanxiaolei " 阅读全文

posted @ 2020-12-31 18:59 fan2006 阅读(520) 评论(0) 推荐(0) 编辑

2020年7月21日

去掉VFB dll里导出的函数后缀

摘要：去掉vfb的标准dll里的函数后缀可以： 1.普通模块里使用cdecl调用约定/起始模块里使用Extern "C",此语句默认使用cdecl约定。这个就不多说了。在Windows系统上，STDCALL程序在其内部/外部名称中添加了@ N “装饰，其中N 的大小的参数列表，以字节为单位。 2。通过下阅读全文

posted @ 2020-07-21 16:13 fan2006 阅读(204) 评论(0) 推荐(0) 编辑

2020年7月17日

关于lazarus中提示marked as inline is not inlined

摘要：最新的lazarus中经常出现一大片的marked as inline is not inlined的提示。虽然不影响程序的编译。但是一大片提示，看起来很不爽。那么怎么隐藏掉呢？ 1.可以在程序单元开头加入： {$WARN 6058 OFF} 2.可以鼠标右击提示消息选择其中一个选项隐藏掉提示。阅读全文

posted @ 2020-07-17 09:00 fan2006 阅读(363) 评论(0) 推荐(0) 编辑

2020年6月19日

vfb查询excel

摘要： visual free basic 通过ado连接excel文件。注意程序的位数和驱动程序的位数要保持一致。 #include once "Afx/CADODB/CADODB.inc" DIM pRecordset AS CAdoRecordset Dim r As CVAR = "" Dim f 阅读全文

posted @ 2020-06-19 19:11 fan2006 阅读(320) 评论(0) 推荐(0) 编辑

2020年6月14日

vfb运行js

摘要：利用mshtml在visual free basic里执行js. #include once "Afx/CDispInvoke.inc" DIM pdom AS CDispInvoke = "HTMLFILE" IF pdom.DispPtr = NULL THEN END Else Print " 阅读全文

posted @ 2020-06-14 17:16 fan2006 阅读(267) 评论(0) 推荐(0) 编辑

2020年6月12日

如何获取电脑操作系统的时区

摘要： vba通过API函数获取电脑操作系统的时区。 #If Win64 Then Private Declare PtrSafe Sub GetTimeZoneInformation Lib "kernel32" (lpTimeZoneInformation As TIME_ZONE_INFORMATIO 阅读全文

posted @ 2020-06-12 12:52 fan2006 阅读(629) 评论(0) 推荐(0) 编辑