Delphi | 易学教程

HTTPRio.HTTPWebNode.OnBeforePost changed in Delphi 10.3, lost parameter Data

阅读更多关于 HTTPRio.HTTPWebNode.OnBeforePost changed in Delphi 10.3, lost parameter Data

问题 I have a component that uses HTTPRio.HTTPWebNode.OnBeforePost that previously used the data parameter, but in version 10.3 of Delphi this parameter was replaced. Before Delphi 10.3: procedure TNotaBlu.BeforePostHTTPRequest(const HTTPReqResp: THTTPReqResp; Client: THTTPClient); var Certificado: ICertificate2; CertContext: ICertContext; PCertContext: Pointer; begin try Certificado := VCertificadoDigital.GetCertificate.DefaultInterface; CertContext := Certificado as ICertContext; CertContext.Get

Delphi: Making a component visible to live binding

阅读更多关于 Delphi: Making a component visible to live binding

问题 I have been trying to make a test object that has a string property visible to the visual binding form. The component is registered with the appropriate properties. Using XE8 and Firemonkey. I can get it to show on the visual binder by selecting it using the hide show elements, however I cannot get it to bind the Foo string to a TEdit text property, the readonly (which does nothing yet) will bind to the Text Property. how do I get it show in it with default class visibility why doesn't the

Delphi: Some tip to parse this html table?

阅读更多关于 Delphi: Some tip to parse this html table?

问题 some time I'm trying to get data from this html table, I tried components paid and free. I tried to do some coding and also got no results. I have a class that throw directly html tables for ClientDataSet, but with this table it does not work. Anyone have any tips on how to get the data in this html table? Or a way to convert it to txt / xls / csv or xml? Follows the code for the table: WebBrowser1.Navigate('http://site2.aesa.pb.gov.br/aesa/monitoramentoPluviometria.do?metodo

Delphi: Some tip to parse this html table?

阅读更多关于 Delphi: Some tip to parse this html table?

What is the proper way to dynamically create and call a stored procedure in Delphi using FireDac?

阅读更多关于 What is the proper way to dynamically create and call a stored procedure in Delphi using FireDac?

问题 I am relatively new to FireDAC. I want to be able to call a stored procedure "on the fly", dynamically. So far I have the following: function TForm21.ExecuteStoredProc(aSPName: string; aParams: TADParams): Boolean; var LSP: TADStoredProc; i: Integer; begin LSP := TADStoredProc.Create(nil); try LSP.Connection := ADConnection1; LSP.StoredProcName := aSPName; LSP.Prepare; for i := 0 to aParams.Count - 1 do begin LSP.Params[i].Value := aParams[i].Value; end; LSP.ExecProc; finally LSP.Free; end;

Edit PDF documents in Delphi

阅读更多关于 Edit PDF documents in Delphi

问题 We have a requirement to add the ability to edit PDF documents witin a Delphi application. I.e. given a PDF document, open it and generate a form with edit boxes on it which the user can use to update the PDF document. Can anyone suggest a third part component that would provide this functionality or suggest some way of achieving this. Thanks 回答1: I use QuickPDF. Well documented, lots of examples, good support. However updating text in a PDF is an art, not a science, and unless you have full

Can the TWebBrowser be used in a thread in Delphi without Application.ProcessMessages?

阅读更多关于 Can the TWebBrowser be used in a thread in Delphi without Application.ProcessMessages?

问题 I am trying to create screen captures of web pages in a Delphi server application (XE2) using TWebBrowser. The screen captures are initiated via web service calls to my server, so to preserve scalability, I would like to service the requests without relying on critical sections or Application.ProcessMessages to do the web page rendering. Can this be done with TWebBrowser? 回答1: I've done this already in a number of objects, and sadly enough the TWebBrowser object ties very much into it's

Delphi XE2 styles painting

阅读更多关于 Delphi XE2 styles painting

问题 I am having trouble with incorrectly painted corners when drawing VCL-styled window elements. On styles that have rounded corners, I get a white background in the space between the control's bounding rect and the style's rounded window corner. The above image was run using Aqua Light Slate, but any style with rounded corners will show this same problem. What am I missing? type TSample = class(TCustomControl) protected procedure Paint; override; end; { TForm1 } procedure TForm1.FormCreate

How can I write a WebDAV server with Delphi? [closed]

阅读更多关于 How can I write a WebDAV server with Delphi? [closed]

问题 Closed. This question is off-topic. It is not currently accepting answers. Want to improve this question? Update the question so it's on-topic for Stack Overflow. Closed last year . There are some WebDAV clients available for Delphi (for example included in Indy 10). Is there also a simple WebDAV server solution written with Delphi? If there is none yet, maybe you know an implementation in a different language (C#, Java) which you can recommend as a starting point for a WebDAV server

那个想做的工具

阅读更多关于那个想做的工具

搞了这么久，那个我想做的工具的框架今天终于算是成型了，从此我可以在框架里面添加东西了。这个过程真的持续了比较久，因为某些关键步骤我始终没有办法攻克。这段时间，基本是抽空在搞，百分之九十的这些天每天都会抽一个小时或半个小时“研究研究”。完成这个框架，对我来说是非常有意义的，尽管我知道这个程序是有相当多的不足，代码结构的不足，设计思想因基础差带来的不足，为了实现而实现造成混乱的不足……不管有多少不足，我都觉得没关系，因为我觉得这是个经历，至少我因此觉得软件开发是有意思的。所以我还是要谈谈这对我的意义。 1、进一步学习。在做这个工具之前我已经说了，以后的学习都是在这个框架上进行的，每次学习的结果都可以利用这个框架或者保存在这个框架里，这样可以使我有条理的学习，并且便于总结。如果这个框架没搭好，我就难以做下一步的学习，虽然没有框架我也能学，但是我就是这样，没有框架就不学，有点倔，还好，搞出来了，乱搞搞出来了。 2、信心与兴趣。感觉自己还是能完成一些事情的，感觉这件事情比我过去几年在公司那些复制粘贴有意义多了，主动的感觉很好。 3、发现学习的空间。如果没有这次尝试，我就不知道还有那么多关于delphi的概念，就这么混下去，也能混。这次上网搜索了一些资料，看了一些书，发现我对于delphi的了解估计只有这门艺术全部的百分之五左右，其实这百分比是一个可怕的概念，我落后了太多，可是我还是得学下去