Delphi

问题 Similar to this question I would like to both blend colors, and bitmaps (png or bmp, but in my case I'm using a png) while preserving transparency. As with the linked question, I would like to (a) not use third party libraries, (b) use VCL built in techniques where possible but with recourse to the Win32 GDI APIs where needed, and (c) not use GDI+. This simple code, based on the code in the linked question I see that the color blending works but the PNG file's transparency is not preserved,

问题 I'm using a MS Access database, with the following columns in the Admins table: Column Type ====== ==== Name Text Surname Text Dateadded Date/time Adminnumber Number(long integer) Password Text ID type Autonumber (Not sure if ID is relevant) This is my code but it keeps giving me a syntax error. ADOquery1.Active := false; adoquery1.sql.Text := 'insert into Admins(Name, surname, Adminnumber, Dateadded,password)Values('''+edit11.Text+''', '''+edit12.text+''', '''+edit13.Text+''', '''+edit14

问题 I have a project that will required to grab the hint from controls(e.g. TButton) of another application created from delphi. I used Hook, WH_CBT, using .exe and .dll to make it global and when the mouse point to the control and Hint show and hide, I get the HCBT_CREATEWND and HCBT_DESTROYWND of the hint with it's Handle and SysShadow as class. But before that, THintWindow is created with its handle, and after that I don't have any idea how to get the text from that hint. I searched google and

问题 Is there any way to save all the database records and structures for multiple queries into one XML file? What I did is: procedure CopyRecords(Sender: TObject); begin try TFDQuery.SQL.Text := 'SELECT * FROM SAMPLE_TABLE1'; TFDQuery.FetchOptions.Unidirectional := False; TFDQuery.Open; TFDQuery.FetchAll; TFDmemtable.Data := DM.qry_SQL.Data; TFDmemtable.First; while not TFDmemtable.Eof do begin TFDmemtable.Edit; TFDmemtable.Post; TFDmemtable.Next; end; TFDmemtable.SaveToFile('C:\Test.xml', sfXML)

问题 I am using a TStringGrid which is placed on a popup (TPopup). when the user click a button the popup will appear with the stringGrid. user will then insert some data in the cells then clicking an apply button on the popup which will update a data array. the popup is used as a metro style flyout as per firemonkey sample. the problem is that the string grid appears put when trying to edit a cell it doesn't accept any input from the key board. Any idea how to solve this problem. I am using

问题 I'm installing Topaz's SigPlus ActiveX control http://www.topazsystems.com/Software/download/sigplusactivex.htm under Delphi XE Pro under Windows 7 x64. This activeX control installs fine under Delphi 7. I'm following these basic instructions http://topazsystems.com/Software/download/delphihowto.pdf After clicking on OK in the final instruction, I get these errors under the 'Structure' panel Failed to find standard type 'IInterface' at line 81 (81:5) Failed to find standard type 'IInterface'

问题 I'm migrating a large family of applications having hardwired FIB+ connectivity inside to Fire-Dac components and I'm looking for some least painfull way, how to do it. First, I've decoupled and migrated the backend to get connectivity neutral and connectivity dependend parts and refactored existing applications manually. I've written FireDac parts as well. To migrate Delphi code it seems to be no problem... But big pain in the ass seems to be a migration of components placed on forms and

问题 I have a problem with Indy components in Delphi 10.1 Berlin on OS X. I'm using TIdHTTP to connect to a webservice using HTTPS. The problem is connecting to a server from an OS X client. When running on OS X, I get this same error all the time: Project raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:14094410:SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure'. I set the TIdHTTP.IOHandler property to use OpenSSL: IdHTTP.IOHandler :=

问题 I have a problem with Indy components in Delphi 10.1 Berlin on OS X. I'm using TIdHTTP to connect to a webservice using HTTPS. The problem is connecting to a server from an OS X client. When running on OS X, I get this same error all the time: Project raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:14094410:SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure'. I set the TIdHTTP.IOHandler property to use OpenSSL: IdHTTP.IOHandler :=

问题 I have a problem with Indy components in Delphi 10.1 Berlin on OS X. I'm using TIdHTTP to connect to a webservice using HTTPS. The problem is connecting to a server from an OS X client. When running on OS X, I get this same error all the time: Project raised exception class EIdOSSLUnderlyingCryptoError with message 'Error connecting with SSL. error:14094410:SSL routines:SSL3_READ_BYTES:sslv3 alert handshake failure'. I set the TIdHTTP.IOHandler property to use OpenSSL: IdHTTP.IOHandler :=