RSS订阅 | 匿名投稿
您的位置:网站首页 > 组件

DELPHI-idhttp-UTF-8编码乱码解决

usesIdHTTP,IdSSLOpenSSL;functionHttpsGet(constaURL,aContentFile:s****ing):Boolean;varvIdHTTP:TIdHTTP;vSSL:TIdSSLIOHandlerSocket;vMemory:TMemoryS****eam;begin****yvIdHTTP:=TIdHTTP.Create(nil);vSSL:=TId…
类别:组件 标签:IdHttp 作者:admin 日期:2014-04-16 21.42.36

delphi 让ScrollBox响应鼠标滚轮事件

Delphi中ScrollBox控件是不响应鼠标滚轮事件的,让其响应鼠标滚轮方法如下:procedureTForm1.FormMouseWheel(Sender:TObject;Shift:TShiftState;WheelDelta:Integer;MousePos:TPoint;varHandled:Boolean);beginifWhe…
类别:组件 标签:ScrollBox 作者:admin 日期:2014-04-12 12.14.28

delphi WebBrowser.OleObject属性

财产的OleObject暴露了物体内部TWebBrowser。如需了解完整细节的物体可看到http://msdn.microsoft.com/workshop/a...ce/objects.asp。一切可通过OleObject财产,也可Document属性。一般获得的数据通过的Document属性…
类别:组件 标签: 作者:admin 日期:2014-04-02 20.51.28

delphi屏蔽WebBrowser页面中传出来的声音

procedureCloseSound;varhWinmm:Cardinal;pwaveOutWrite:Pointer;lp:Cardinal;beginhWinmm:=LoadLibrary('Winmm.dll');ifhWinmm>0thenpwaveOutWrite:=GetProcAddress(hWinmm,'waveOutOpen');ifpwaveOutWrite<>nilthe…
类别:组件 标签: 作者:admin 日期:2014-01-24 23.11.23

delphi 打开WEBBROWSER的选中文件路径

usesCommCtrl,httpApp,ShellApi;{GetWebPath(WebBrowser1);}functionGetWebPath(web:TWebBrowser):string;varitem:TLvItem;clsName:array[0..MAX_PATH]ofchar;hwndLv:HWND;selCount,fileCount,selMark:Integer;fileN…
类别:组件 标签: 作者:admin 日期:2014-01-22 23.13.12

delphi 在运行时改变控件的大小

<pstyle="box-sizing:border-box;color:#4b4b4b;font-family:Verdana,Arial,Helvetica,sans-serif;font-size:13px;line-height:15...
类别:组件 标签: 作者:admin 日期:2014-01-22 23.01.03

delphi 高亮选中MEMO某一行

选中第5行//转到指定行并选中这行的文本procedureSelectLine(Memo1:TMemo;ln:Integer);beginMemo1.SelStart:=SendMessage(Memo1.Handle,EM_LINEINDEX,ln-1,0);Memo1.Se...
类别:组件 标签: 作者:admin 日期:2014-01-22 22.43.32

delphi opendialog控件用法

一.常用属性1.DefaultExt特性:当用户未输入文件扩展名时它用于指明默认的扩展名。2.FileName特性:它为string型用于记录最后一个被选中的文件的全路径名。默认为空。3.Filter(过滤器)特性:它用于设置打开对话框中…
类别:组件 标签: 作者:admin 日期:2014-01-13 11.28.12

delphi Opendialog文件过滤类型

格式只显示exe文件exe文件(*.exe)|*.exeexe文件(*.exe)显示在文件类型里,中间用|隔开,|后面代表过滤exe以外的其他类型文件opendialog1.filter:='所有文件(*.*)|*.*';opendialog1.filter:='文本文件(*.txt)|*.txt';…
类别:组件 标签: 作者:admin 日期:2014-01-13 11.27.37

delphi xe vcl - Tlinklabel(链接标签)

编辑该控件OnLinkLink事件,代码如下:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Con****ols,****s,Dialogs,ExtC****ls,ShellAPI;typeT****1=class(T****)LinkLabel1:TLinkLabel…
类别:组件 标签:Tlinklabel 作者:admin 日期:2014-01-13 11.08.19

Delphi PageControl不顯示Tab方式

方法很簡單,建立好TabSheet後,將TabSheet的TabVisible屬性設為False。接著只要用程式去控制就行了PageControl1.ActivePageIndex:=x(TabSheetIndex);或PageControl1.ActivePage:=x(TabSheetName);
类别:组件 标签: 作者:admin 日期:2013-12-31 14.21.15

Delphi动态建立Panel无法更改颜色?

动态建立TPanel元件時,發現設定了Color屬性後無效。解決的方式很簡單,要設定Panel的ParentBackground為false就可以了!順帶一提,如果把ParentBackground設為True的時候,就會看到Panel會有透空的效果。
类别:组件 标签: 作者:admin 日期:2013-12-31 14.20.25

delphi memo 自动滚动到最底下

//定位Memo到底部,显示最新输入SendMessage(memo1.Handle,WM_VSCROLL,SB_BOTTOM,0);参考:SB_LINEUPSB_LINELEFTSB_LINEDOWNSB_LINERIGHTSB_PAGEUPSB_PAGELEFTSB_PAGEDOWNSB_PAGERIGHTSB_THUMBPOSITIONSB_THUMBTRACK…
类别:组件 标签: 作者:admin 日期:2013-11-28 09.52.35

Delphi中用IdHttp获取json数据乱码问题

最近捡起丢了10年的Delphi来玩,想试试对json的数据处理。试了TSuperObject和TlkJSONobject,都发现拉回的数据是乱码,运行exe就报错。测试发现获取的json源数据中间汉字的地方是乱码,导致引号不配对,引发内存错误…
类别:组件 标签: 作者:admin 日期:2013-11-24 22.30.15

delphi TWebBrowser与嵌入Youtube视频崩溃

typeTForm1=class(TForm)WebBrowser1:TWebBrowser;Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);end;implementationusesActiveX;procedure...
类别:组件 标签: 作者:admin 日期:2013-11-24 13.44.28

Delphi中WebBrowser(或者EmbeddedWebBrowser)控件打开部分网站报“Invalid floating point operation”异常的解决方法

最近用EmbeddedWB控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“Invalidfloatingpointoperation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句?WebBrowser1.Navigate(Edit1…
类别:组件 标签: 作者:admin 日期:2013-11-24 13.12.55

delphi TWebbrowser打开paypal出错

直接nevigate打开https://www.paypal.com出现invalidfloatingpointoperation的错误,同时页面中的连接就无法再在tWEBbrowser中访问了.有办法解决这个错误么unitUnIT1;interfaceusesWindows,Messages,SysUtils,Variant…
类别:组件 标签: 作者:admin 日期:2013-11-24 13.11.25

delphi 禁止用键盘左右箭头,去切换PageControl页签

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls;typeTForm1=class(TForm)PageControl1:TPageControl;TabSheet1:TTabSheet;TabSheet2:TTabSheet;proc…
类别:组件 标签:PageCon****ol 作者:admin 日期:2013-11-22 19.43.58

delphi Webbrowser中模拟连接点击(非鼠标模拟)

usesmshtml,ActiveX;//初始加载主页procedureTForm1.FormCreate(Sender:TObject);beginWebbrowser1.Navigate('http://www.3464.com/');end;procedureTForm1.Button1Click(Sender:TObject);varI:Integer;Document:IHT…
类别:组件 标签:Webbrowser 作者:admin 日期:2013-11-22 19.42.29

Delphi 使用idhttp下載显示进度以及大小

<pstyle="c...
类别:组件 标签:idhttp 作者:admin 日期:2013-11-20 21.39.03