解决错误提示unable to invoke code completion due to errors in source cord.

出现这个错误,一般都是直接复制代码产生的,可能delphi编译器有点问题,把复制过来的代码粘贴到delphi中的时候,默认每行后面会产生很多不可见得空格,主要的原因还是字符串的格式有问题,所以就会出现代码明明能编译通过,程序也能正常运行的,可是自己写代码的时候,在delphi默认提示跳出的时候,不能提示,跳出编译错误unable to invoke code completion due to errors in source cord.

解决办法,把delphi的代码全部选择,复制,再打开ultraedit,ctrl+v粘贴到ultraedit中,再全部选择代码----格式--删除行尾空格,这样把一些不规则的

filehelper_1488336620419_73.png

看不到的空格去掉,然后再复制回到delphi中,重新编译写,就没有这个提示了,这样错误,有时候是很难看出来的,代码没错,语法没错。。。

Posted in 软件开发 at March 1, 2017. by 傻猫 .    Views: 1131    No Comments

弹起我心爱的土琵琶

西边的太阳快要落山了,   
微山湖上静悄悄。  
弹起我心爱的土琵琶,   
唱起那动人的歌谣。   
爬上飞快的火车,   
像骑上奔驰的骏马。   
车站和铁道线上,   
是我们杀敌的好战场。   
我们爬飞车那个搞机枪,   
闯火车那个炸桥梁,   
就像把钢刀插入敌胸膛,   
打得鬼子魂飞胆丧,   
西边的太阳就要落山了,   
鬼子的末日就要来到。   
弹起我心爱的土琵琶,   
唱起那动人的歌谣。   
哎嗨......

Posted in 休闲娱乐 at February 7, 2017. by 傻猫 .    Views: 1741    No Comments

数据库各表统计信息,记录数/占用空间

create table #Data(name varchar(100),row varchar(100),reserved varchar(100),data varchar(100),index_size varchar(100),unused varchar(100))

declare @name varchar(100)
declare cur cursor for
select name from sysobjects where xtype='u' order by name
open cur
fetch next from cur into @name
while @@fetch_status=0
begin
insert into #data
exec sp_spaceused @name
print @name

fetch next from cur into @name 

end
close cur
deallocate cur

create table #DataNew(name varchar(100),row int,reserved int,data int,index_size int,unused int)

insert into #dataNew
select name,convert(int,row) as row,convert(int,replace(reserved,'KB','')) as reserved,convert(int,replace(data,'KB','')) as data,
convert(int,replace(index_size,'KB','')) as index_size,convert(int,replace(unused,'KB','')) as unused from #data

select * from #dataNew order by data desc

Posted in 数据库 at January 22, 2017. by 傻猫 .    Views: 1595    No Comments

mssql里求数据库中所有表的记录数

create table #temp(name varchar(50),count int)
declare @tablename varchar(50),@sql varchar(500)
declare gettablenum_cur cursor for select name from sysobjects where xtype='u'
open gettablenum_cur
fetch gettablenum_cur into @tablename
while @@fetch_status=0
begin
select @sql='insert #temp(name,count) '+'select '+''''+@tablename+''''+','+'count(1) from '+@tablename
exec(@sql)
fetch gettablenum_cur into @tablename
end
select * from #temp order by name
close gettablenum_cur
deallocate gettablenum_cur
drop table #temp

Posted in 数据库 at January 22, 2017. by 傻猫 .    Views: 1464    No Comments

《小猪佩奇、粉红猪小妹、Peppa Pig》高清1080p 中英文原版下载

《小猪佩奇》《粉红猪小妹》《Peppa Pig》介绍:

《Peppa Pig》是一部超级受欢迎的英国学龄前儿童动画片系列。故事围绕红猪小妹的日常生活展开,家长和孩子们可以通过动画片学到许多常见的生活用语,而且还能体会到英国的日常生活和西方文化。画面干净画风简单,清新且色彩明亮饱和,剧情温馨有趣,语速适中,日常用语丰富,是一部非常好的启蒙英语动画片,适合2-6岁的小朋友。

《Peppa Pig》自2004年在英国的FIVE和NICK JR.电视台首播后,全球超过120个国家的电视频道也相继播映。荣获2005年法国Annecy国际动画展Cristal「最佳电视制作奖」;意大利Cartoons on the Bay动画展Pulcinella「最佳幼儿影集奖」「年度最佳欧洲节目」。

《Peppa Pig》从2004年5月到2012年12月共播出4季211集,每集5分钟。

查看更多内容...

Posted in 休闲娱乐 at January 12, 2017. by 傻猫 .    Views: 46761    No Comments

如何成为一个捞金网红女主播?

最近一年里,网络上出现了很多手机直播APP软件,像映客,YY,一直播,网易BOBO,数都数不过来。简单点讲,主播通过手机直播表演(姑且就叫表演吧),让观众、粉丝打赏获取得收益。

如何才能成为一个网络大主播呢?
如何才能成为一个捞金主播呢?
如何才能成为一个月收入过万的主播呢?

主播有很多种,满足以下几种都可以吸粉捞金:

1、颜值型主播。 长得漂亮,就静静地坐在那里,微微跟粉丝互动一下,就能吸粉。
2、唠嗑型主播。 扯淡,吹牛逼,侃大山 也是一项技能。
3、性感型主播。 放得开,不违规的情况下,露胸露大腿,可以拥有大批球迷粉丝。
4、才艺型主播。 琴棋书画,唱歌跳舞
5、异类拔出型主播。杀马特,异型,出风头类也不错。

直播中的技巧:

1、要和粉丝互动
2、要有忍耐性,人上一百,什么鸟都有,有些乱七八糟的,可以无视就好。
3、熟悉APP操作,熟悉等级图标,有高等级观众进来时,一定要把握住,这些土豪都是送金主啊,要欢迎,欢迎,再欢迎。
4、有人送礼物要表示感谢,微笑挂嘴边
5、主播是吃百家饭的,不能老套路,但又不得不套路,所以会说话非常关键,要多吸特杆粉丝,结实新朋友,不忘老朋友。
6、每天准时播,坚持就是胜利。
7、总结经验,不断学习

男人如何不被套路:

坚持不充值

Posted in 休闲娱乐 at December 27, 2016. by 傻猫 .    Views: 1079    No Comments

Windows下RSA密钥生成工具openssl

  1. 生成原始 RSA私钥文件 private_key.pem
    openssl genrsa -out private_key.pem 1024

  2. 将原始 RSA私钥转换为 pkcs8格式
    openssl pkcs8 -topk8 -inform PEM -in private_key.pem -outform PEM -nocrypt -out rsa_private_key.pem

  3. 生成 RSA公钥 rsa_public_key.pem
    openssl rsa -in private_key.pem -pubout -out rsa_public_key.crt

  4. 从公钥 rsa_public_key.pem 获取十六进制的公钥(第一段16进制字符串)
    openssl asn1parse -out temp.ans -i -inform PEM<private_key.pem

最终获取文件列表:
rsa_private_key.pem
rsa_public_key.crt

16进制公钥字符串用于js端加密

下载Openssl工具
openssl.zip

Posted in 软件开发 at December 7, 2016. by 傻猫 .    Views: 938    No Comments

关于SMExportToXLS导出数据窜行的问题

前段时间买了一套SMExport suite for Delphi/CBuilder (with sources) 组件,默认导出的XLS表格数据,发现有窜行的问题,很是郁闷,后来发现是因为Options选项中 soFieldMask 没有选中,只需要选中即可解决,也是醉了,先MARK一下。

微信截图_20161118095017.png

另外导出表格里,有大量空白字符,可以在导出组件OnGetCellParams事件中添加以下代码即可。

procedure TFrm_KduserManage.smxprtxlsx1GetCellParams(Sender: TObject;
Field: TField; var Text: WideString; AFont: TFont;
var Alignment: TAlignment; var Background: TColor;
var CellType: TCellType);
begin
if Assigned(Field) then
begin
Text:=Trim(Text);
end;
end;

Posted in 软件开发 at November 18, 2016. by 傻猫 .    Views: 1191    No Comments