Delphi
idealess
这个作者很懒,什么都没留下…
展开
-
查询网络状态
function GetOnlineStatus : Boolean;var ConTypes : Integer;begin ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY; if (InternetGetConnectedState(@Co原创 2013-07-29 10:33:31 · 882 阅读 · 0 评论 -
Delphi按原始尺寸打印图片
直接上代码:VAR dpix, dpiy:Double; px, py:Integer; Picture: TPicture; rect1:TRect; begin Picture:=TPicture.Create; Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'print\'+原创 2013-08-07 09:59:42 · 3912 阅读 · 0 评论 -
将一个Base64字符串转换成jpg图片的方法
假定字符串存储在文本里,如a.txt,转换结果将图片存储在a.jpg,delphi实现代码如下,须应用EncdDecd unit,代码在Delphi6下编译通过:varsl:Tstringlist;buf:string;begin sl:=TStringList.Create; sl.LoadFromFile('d:\a.txt'); buf:=string(sl.GetT原创 2013-08-22 20:00:17 · 9276 阅读 · 0 评论