delphi-10.1-berlin

FastReport 5.3 Designer can't access events

自闭症网瘾萝莉.ら 提交于 2019-12-08 08:48:54
问题 I'm using FastReport version 5.3.14 in Delphi 10.1 Berlin. I'm porting over a VCL app originally written on DelphiXE When I open the report in the FastReport Designer clicking on the Events tab on the Object Inspector does nothing. I also can't click on the Code tab of the report. (see screenshot below) I use the MasterData1OnBeforePrint event to dynamically load images. 来源: https://stackoverflow.com/questions/37511457/fastreport-5-3-designer-cant-access-events

FastReport 5.3 Designer can't access events

一个人想着一个人 提交于 2019-12-06 15:58:41
I'm using FastReport version 5.3.14 in Delphi 10.1 Berlin. I'm porting over a VCL app originally written on DelphiXE When I open the report in the FastReport Designer clicking on the Events tab on the Object Inspector does nothing. I also can't click on the Code tab of the report. (see screenshot below) I use the MasterData1OnBeforePrint event to dynamically load images. 来源: https://stackoverflow.com/questions/37511457/fastreport-5-3-designer-cant-access-events

How to create toast notification in delphi with ToastGeneric

大兔子大兔子 提交于 2019-12-04 15:34:50
I am developing on Desktop with delphi. I would like to create toast notification with ToastGeneric type notification LToastFactory.CreateToastNotification(LXMLTemplate); In addition , i am using an xml as in https://docs.microsoft.com/en-us/windows/uwp/controls-and-patterns/tiles-and-notifications-adaptive-interactive-toasts My question is how can i make delphi to accept this xml, i haven't found a way to convert that string into Xml_Dom_IXmlDocument type. I had the same problem. My objective was to create a Toast notification from Delphi that uses toastGeneric. However, I could not find any

How to login to Instagram website using IdHTTP in delphi10

我的梦境 提交于 2019-12-02 12:40:26
问题 I am trying to login to instagram website using idhttp in Delphi. I used google chrome developer tools to get the data and this is what I've tried so far.. procedure TForm1.Button1Click(Sender: TObject); var lHTTP: TIdHTTP; S,M : TStrings; IdSSL: TIdSSLIOHandlerSocketOpenSSL; begin S := TStringList.Create; S.Add('username :' +Edit1.Text); S.Add('password :'+ Edit2.Text); lHTTP := TIdHTTP.Create(nil); lHTTP.ReadTimeout := 30000; lHTTP.HandleRedirects := True; IdSSL :=

How to login to Instagram website using IdHTTP in delphi10

时光毁灭记忆、已成空白 提交于 2019-12-02 06:28:05
I am trying to login to instagram website using idhttp in Delphi. I used google chrome developer tools to get the data and this is what I've tried so far.. procedure TForm1.Button1Click(Sender: TObject); var lHTTP: TIdHTTP; S,M : TStrings; IdSSL: TIdSSLIOHandlerSocketOpenSSL; begin S := TStringList.Create; S.Add('username :' +Edit1.Text); S.Add('password :'+ Edit2.Text); lHTTP := TIdHTTP.Create(nil); lHTTP.ReadTimeout := 30000; lHTTP.HandleRedirects := True; IdSSL := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP); IdSSL.SSLOptions.Method := sslvTLSv1; IdSSL.SSLOptions.Mode := sslmClient; lHTTP

Dealing with circular strong references in Delphi

送分小仙女□ 提交于 2019-12-01 17:25:32
I got two classes (in my example TObject1 and TObject2) which know each other via interfaces (IObject1, IObject2). As you probably know in Delphi this will lead to a memory leak as both reference counter will always stay above zero. The usual solution is declaring one reference as weak. This works in most cases because you usually know which one will be destroyed first or don't necessarily need the object behind the weak reference once it is destroyed. This said I tried to solve the problem in a manner that both objects stay alive until both aren't referenced anymore: (Delphi 10.1 required as

Can't retrieve TStreams bigger than around 260.000 bytes from a Datasnap Server

妖精的绣舞 提交于 2019-11-30 05:59:44
问题 I have a Delphi 10.1 Berlin Datasnap Server, that can't return Data packets (through a TStream) bigger than around 260.000 bytes. I have programmed it following the \Object Pascal\DataSnap\FireDAC sample from Delphi, which also shows this problem. The problem can be seen just opening that sample, setting blank the IndexFieldName of the qOrders component on ServerMethodsUnit.pas, and changing its SQL property to : select * from Orders union select * from Orders Now the amount of data to be

ODBC Excel Driver: Unexpected error from external database driver

此生再无相见时 提交于 2019-11-29 04:49:23
Since the Windows update from October 10, the ODBC Excel drivers have stopped working. We get the following error when trying to read a file: "Unexpected error from external database driver (1)" We open Excel files in Delphi using an ADO connection with the following connection string: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties="Excel 8.0;HDR=Yes;IMEX=1"; I can get it to work by switching to Microsoft.ACE.OLEDB.12.0, but for that to work, all our customers would have to install the Microsoft Access Database Engine Redistributable on all the computers they

Can't retrieve TStreams bigger than around 260.000 bytes from a Datasnap Server

拟墨画扇 提交于 2019-11-28 12:26:27
I have a Delphi 10.1 Berlin Datasnap Server, that can't return Data packets (through a TStream) bigger than around 260.000 bytes. I have programmed it following the \Object Pascal\DataSnap\FireDAC sample from Delphi, which also shows this problem. The problem can be seen just opening that sample, setting blank the IndexFieldName of the qOrders component on ServerMethodsUnit.pas, and changing its SQL property to : select * from Orders union select * from Orders Now the amount of data to be send is beyond 260.000 bytes, which seems to be the point where you can't retrieve it from the client.

How to access a private field from a class helper in Delphi 10.1 Berlin?

梦想与她 提交于 2019-11-28 10:05:55
I would like to use Gabriel Corneanu's jpegex , a class helper for jpeg.TJPEGImage. Reading this and this I've learned that beyond Delphi Seattle you cannot access private fields anymore like jpegex does (FData in the example below). Poking around with the VMT like David Heffernan proposed is far beyond me. Is there any easier way to get this done? type // helper to access TJPEGData fields TJPEGDataHelper = class helper for TJPEGData function Data: TCustomMemoryStream; inline; procedure SetData(D: TCustomMemoryStream); procedure SetSize(W,H: integer); end; // TJPEGDataHelper function