delphi-xe8 | 易学教程

How can I configure the new Delphi XE8 Editor begin-end visual cues?

阅读更多关于 How can I configure the new Delphi XE8 Editor begin-end visual cues?

问题 The Delphi XE8 editor has visual cues so that you know which begin goes with which end . In our team, we have the convention of always put the begin on the same line as the owner clause. Is there any way to have the visual cue aligned with the corresponding end instead of its begin ? UPDATE : This issue seems to be fixed in Delphi Seattle 10. 回答1: Go to Castalia Options - Editor - Smart Highlighting . Set Structural highlighting mark hanging blocks to No 回答2: This is not an answer but I think

Delphi XE8 styles do not work with TFrames? How to fix this?

阅读更多关于 Delphi XE8 styles do not work with TFrames? How to fix this?

问题 I use TFrames . I make them dynamically by adding them to the Form window. I chose the style called "Glow" (others also). I launched the program and the style works only on the main Form window, they do not work on the controls TFrame . Why? I tried to add: TStyleManager.SetStyle for the Frame Form but with no effect. 回答1: I have fixed this bug. If you will change Frame Form Color property manually, it will make a bug. You must select your Frame and go to properties and turn on the

Using custom styles shows invalid characters when right-clicking a file in TOpenDialog

阅读更多关于 Using custom styles shows invalid characters when right-clicking a file in TOpenDialog

问题 See steps below to reproduce. Works well in XE2 but not XE8. Create a new VCL Forms Application - Delphi Place a TButton and a TOpenDialog on the form In the button OnClick event call OpenDialog1.Execute Run the program, open the file dialog, and right-click on a text file => shows menu items ok Go to Project/Options/Application/Appearance. Enable and choose a custom style (such as "Ruby Graphite") and recompile Run the program, open the file dialog, and right-click a text file => does not

How to make a Mutlithreded idhttp calls to do work on a StringList

阅读更多关于 How to make a Mutlithreded idhttp calls to do work on a StringList

问题 i am new to Threads, i have a List contains a strings. My goal is to make multiple threads do work to this List, this codes only for a single thread because i'm learning currently, however i get AV when i press start Button. type TDemoThread = class(TThread) private procedure Abort; protected procedure Execute; override; public List: TStringList; end; procedure TfrmMain.StartButton1Click(Sender: TObject); var i: integer; List: Tstrings; begin for i := 0 to memo1.Lines.Count - 1 do begin List

TPLB 3 OpenSSL Decrypt AES-256-CBC Encrypted with Ruby 2.0.0 OpenSSL::Cipher

阅读更多关于 TPLB 3 OpenSSL Decrypt AES-256-CBC Encrypted with Ruby 2.0.0 OpenSSL::Cipher

问题 I am sending down some information from a server that is using OpenSSL::Cipher to encrypt the data using AES-256-CBC. I am receiving the data in an application that is coded in Delphi XE8 and attempting to decrypt the data using TPLB 3 OpenSSL. From everything I have tried I have all of the information matching, the key, the iv etc), but I still get an error or junk data when attempting to decrypt. I am assuming that there is something I am missing with TPLB 3 setup/config to get it to

Connection Closed Gracefully Indy TCPServer Mobile App Delphi XE8

阅读更多关于 Connection Closed Gracefully Indy TCPServer Mobile App Delphi XE8

问题 I am using Indy TCPClient/TCPServer to verify registration of a mobile device. The process is fairly straight forward where I read an identifier on the Server Side, validate it against the database control file and send back a response to the client. Everything appears to work correctly for the most part but periodically I get the EIDConnClosedGracefully Exception on the Server Side. I can't seem to pinpoint exactly where the connection is being closed improperly. In fact, it appears that the

TPLB 3 OpenSSL Decrypt AES-256-CBC Encrypted with Ruby 2.0.0 OpenSSL::Cipher

阅读更多关于 TPLB 3 OpenSSL Decrypt AES-256-CBC Encrypted with Ruby 2.0.0 OpenSSL::Cipher

I am sending down some information from a server that is using OpenSSL::Cipher to encrypt the data using AES-256-CBC. I am receiving the data in an application that is coded in Delphi XE8 and attempting to decrypt the data using TPLB 3 OpenSSL. From everything I have tried I have all of the information matching, the key, the iv etc), but I still get an error or junk data when attempting to decrypt. I am assuming that there is something I am missing with TPLB 3 setup/config to get it to decrypt properly, but I can't for the life of me figure it out. Any help is much appreciated. Delphi

how to convert idhttp downloaded image from extention to another?

阅读更多关于 how to convert idhttp downloaded image from extention to another?

问题 i have this Thread that get image url from the web then save it to memory stream then save from memory stream To file i needed to convert any image that downloaded to a gif image so i do something like this unit downloadimgThread; interface uses Windows, SysUtils, Classes, dialogs, IdSSLOpenSSL, IdHttp, IdUri, System.AnsiStrings, Graphics, Jpeg, Vcl.Imaging.GIFImg, PNGImage; type TDownloadUpdateVisualEvent = procedure(Sender: TObject; Anameofimg: String; var Aimagelocate: String) of object;

How can I add a library path to a delphi project?

阅读更多关于 How can I add a library path to a delphi project?

I have a couple precompiled (3rd party) libraries that I need to use in my project. I can get it to build if I put foo.a in the root of my project folder, however, I have a 32 bit version and a 64 bit version of the library and I don't want to have to swap out foo.a with foo.32.a and foo.64.a every time I build each version of the application. In this particular case I've put them in: [myroot]\iOSDevice32\Debug\foo.a [myroot]\iOSDevice32\Release\foo.a and [myroot]\iOSDevice64\Debug\foo.a [myroot]\iOSDevice64\Release\foo.a I could put it in the libary path (Tools -> Options -> Delphi Options ->

Clear Firemonkey TListView search text

阅读更多关于 Clear Firemonkey TListView search text

ListView1.items.filter := nil; I understand that the above will clear the filter of a listview however if the Search is visible for the listview and something is typed into it, is there anyway of clearing the text from it? Dsm for I := 0 to ListView1.Controls.Count-1 do if ListView1.Controls[I] is TSearchBox then begin TSearchBox(ListView1.Controls[I]).Text := ''; end; (based on DocWiki!) Ricardo da Rocha Vitor Thanks @Dsm, by answer. I will just suggest a trick to get TSearchBox just one time and store in a variable. Now it is not necessary to loop through the TListView.Controls every time.