I still need to use the BDE due to compatibility issues with another application. I have finished programming my VCL Forms application, now I need to copy it out to another user's PC, which does not have the BDE installed. I need to either have the user install the BDE himself, or somehow make the application run self-contained without relying on BDE Admin. How do I do this? Right now when the other user opens the app he gets an error that "An error occured while attempting to initialize the Borland Database Engine (Error $2108)."
↧
How do I deploy a VCL application that uses BDE components? - by: Evan
↧
EIdosslcouldnotloadssllibrary 10.2 Berlin Delphi - by: Alan
I have been using TIdhttp component successfully up until yesterday. Now on a IdHTTP1.Get(AURL) I am getting the error that it cvan't load the ssl library. I have checked and both the libeay32.dll and ssleay32.dll are loaded. The only thing that I did between working and not working was to turn on Internet Information Services. What could be wrong?
↧
↧
How to send message Amazon SNS - by: Álax
How to submit by Amazon SNS (Simple Notification Service) SMS
↧
EIdosslcouldnotloadssllibrary 10.1 and 10.2 Berlin Delphi - by: Alan
I have an app that is using TIDHTTP and has been working fine. I am trying to get a response from a website using the Get function. Now, I am getting the error Could not load SSL Library. I have checked for libeay32.dll and ssleay32.dll and they are both in C:\Windows\SysWOW64. Some have said that OpenSSL is needed, but I haven't needed this before. What can be happening???
↧
Delphi calling fastcall functions in DLL - by: Mark
I want to be able to access some functions in a third party API in a DLL that has "fastcall" bindings from Delphi. My understanding is that none of the calling conventions is Delphi support fastcall. I had considered writing a second DLL containing cdecl bindings that would then call the fastcall functions in the first DLL, but I also need to register one function as a callback, and that has to also have a fastcall binding.
Is there a way around this ? I only need a 64 bit solution.
Is there a way around this ? I only need a 64 bit solution.
↧
↧
IBExtract SQL - by: Robert
When I run this statement:
SELECT * FROM RDB$INDICES WHERE RDB$RELATION_NAME = 'TENANTS'
I get result showing 13 fields. The index names are listed on single lines.
For example in IBConsole looking at the TENANTS table indexes it shows PROPOWNER and three parameters.
When I look at the metadata for that index:
CREATE INDEX "PROPOWNER" ON "TENANTS"("STATE_TEN", "CITY_TEN", "STNAME_TEN", "ADRESS_TEN", "MAXDATE");
How do you structure the SQL statement to extract the data showing all the fields used in the index?
Thanks
SELECT * FROM RDB$INDICES WHERE RDB$RELATION_NAME = 'TENANTS'
I get result showing 13 fields. The index names are listed on single lines.
For example in IBConsole looking at the TENANTS table indexes it shows PROPOWNER and three parameters.
When I look at the metadata for that index:
CREATE INDEX "PROPOWNER" ON "TENANTS"("STATE_TEN", "CITY_TEN", "STNAME_TEN", "ADRESS_TEN", "MAXDATE");
How do you structure the SQL statement to extract the data showing all the fields used in the index?
Thanks
↧
Architect 10.2.3: EMS Setup Wizard Error - by: jerry
After keeping default settings when using the RAD (EMS) Server Setup Wizard, I click the Finish button and then I get the following error:
"An error occurred when trying to load your InterBase license. Verify that you have entered valid connection parameters for the new database. Also verify that the InterBase server instance is running."
InterBase 2017 was installed along with Architect. There is no separate InterBase license.
The InterBase 2017 Server developer_ib2017 and InterBase XE7 Guardian developer_ib2017 services are running.
How to proceed?
"An error occurred when trying to load your InterBase license. Verify that you have entered valid connection parameters for the new database. Also verify that the InterBase server instance is running."
InterBase 2017 was installed along with Architect. There is no separate InterBase license.
The InterBase 2017 Server developer_ib2017 and InterBase XE7 Guardian developer_ib2017 services are running.
How to proceed?
↧
"Trace to next source line" (shift +F7) - by: Didier
Hi there,
when I want to know in which case I should use "Trace to next source line" (shift +F7)), I don't find many helpful information:
Delphi help says this -> docwiki.embarcadero.com/RADStudio/Berlin..._to_Next_Source_Line
Marco Cantu says here :
"A third option, Trace to Next Source Line (Shift + F7), will move control to the
next line of the source code of your program being executed, regardless of the control
flow. This source code line might be the following line of the source code (as in a Step
Over command), a line inside a function called by your code (as in a Trace Into
command), or a line of code inside an event handler or a callback function of the program
activated by the system".
But this does not tell me in which specific use case this action is interesting to be used, and especially vs the standard "Step over" (F8) and "Trace into" (F7)
Have someone a clearer idea?
Thanks in advance
when I want to know in which case I should use "Trace to next source line" (shift +F7)), I don't find many helpful information:
Delphi help says this -> docwiki.embarcadero.com/RADStudio/Berlin..._to_Next_Source_Line
Marco Cantu says here :
"A third option, Trace to Next Source Line (Shift + F7), will move control to the
next line of the source code of your program being executed, regardless of the control
flow. This source code line might be the following line of the source code (as in a Step
Over command), a line inside a function called by your code (as in a Trace Into
command), or a line of code inside an event handler or a callback function of the program
activated by the system".
But this does not tell me in which specific use case this action is interesting to be used, and especially vs the standard "Step over" (F8) and "Trace into" (F7)
Have someone a clearer idea?
Thanks in advance
↧
Program works one day bu not the next? - by: Toby
Hi,
I have a program which essentially writes to an array, reads from it and plots the retrieved value in a chart on repeat.
Yesterday I compiled the program and ran, only to find an unexplainable OutOfMemory exception thrown after a few points.
I then altered the code slightly, plotting a constant rather than a value plucked from the array and the program worked as expected. I then tried referencing a different array and the program, again, worked as expected. Finally I reset the code to its original state and the program threw the same exception.
This morning I opened RAD Studio and compiled and ran the same program, as it was at the beginning of yesterday and it seems to work fine. I haven't made any changes to the original code.
Any suggestions as to why this might happen would be highly appreciated. I am using RAD Studio 10.1 with TeeChart (2017 version).
Thanks,
Toby
I have a program which essentially writes to an array, reads from it and plots the retrieved value in a chart on repeat.
Yesterday I compiled the program and ran, only to find an unexplainable OutOfMemory exception thrown after a few points.
I then altered the code slightly, plotting a constant rather than a value plucked from the array and the program worked as expected. I then tried referencing a different array and the program, again, worked as expected. Finally I reset the code to its original state and the program threw the same exception.
This morning I opened RAD Studio and compiled and ran the same program, as it was at the beginning of yesterday and it seems to work fine. I haven't made any changes to the original code.
Any suggestions as to why this might happen would be highly appreciated. I am using RAD Studio 10.1 with TeeChart (2017 version).
Thanks,
Toby
↧
↧
ListView - how to get item text - by: Ľubomír
Hi, I have ListView and in Object inspector I have structure - ListView1->ItemAppearance->Item->Text3. Text3 was created on design mode of ListView. ListViev is sucessfuly merged with database. All is good, but I do not know how to read text of Text3. Something like:
ListView1->Items->operator [](ItemIndex)->Text3
Can someone help me?
Thanx.
ListView1->Items->operator [](ItemIndex)->Text3
Can someone help me?
Thanx.
↧
Tstrings on TCollectionItem not showing - by: Adam
Hello,
I appreciate any help I get,
I have this component , created without any error, I click on Commands (TCollectionItem)
Then add new command, then I click Tstrings, nothing happening, I suppose to see TStrings box to add text (just like Tmemo lines box) , any idea what I’m missing please ?
Thanks
=====================================
unit MyCollections;
interface
uses
Classes;
type
MyItem = class(TCollectionItem)
private
FDescription : String;
published
property Description : String read FDescription write FDescription;
end;
TStrings = class(TCollection)
private
function GetItem(Index: Integer): MyItem;
procedure SetItem(Index: Integer; const Value: MyItem);
public
function Add: MyItem;
function Insert(Index: Integer): MyItem;
property Items[Index: Integer]: MyItem read GetItem write SetItem;
end;
Command = class(TCollectionItem)
private
FID : Integer;
FMyItems : TStrings;
public
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
published
property ID : Integer read FID write FID;
property MyItems : TStrings read FMyItems write FMyItems;
end;
TCommands = class(TCollection)
private
function GetItem(Index: Integer): Command;
procedure SetItem(Index: Integer; const Value: Command);
public
function Add: Command;
function Insert(Index: Integer): Command;
property Items[Index: Integer]: Command read GetItem write SetItem;
end;
TFactory = class(TComponent)
private
FCommands : TCommands;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Commands : TCommands read FCommands write FCommands;
end;
procedure Register;
implementation
{ TCommands }
procedure Register;
begin
RegisterComponents('Test Commands', [TFactory]);
end;
function TCommands.Add: Command;
begin
Result := Command(inherited Add);
end;
function TCommands.GetItem(Index: Integer): Command;
begin
Result := Command(inherited Items[Index]);
end;
function TCommands.Insert(Index: Integer): Command;
begin
Result := Command(inherited Insert(Index));
end;
procedure TCommands.SetItem(Index: Integer; const Value: Command);
begin
Items[Index].Assign(Value);
end;
{ TFactory }
constructor TFactory.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCommands := TCommands.Create(Command);
end;
destructor TFactory.Destroy;
begin
FCommands.Free;
inherited;
end;
{ TStrings }
function TStrings.Add: MyItem;
begin
Result := MyItem(inherited Add);
end;
function TStrings.GetItem(Index: Integer): MyItem;
begin
Result := MyItem(inherited Items[Index]);
end;
function TStrings.Insert(Index: Integer): MyItem;
begin
Result := MyItem(inherited Insert(Index));
end;
procedure TStrings.SetItem(Index: Integer; const Value: MyItem);
begin
Items[Index].Assign(Value);
end;
{ Command }
constructor Command.Create(Collection: TCollection);
begin
inherited Create(Collection);
FMyItems := TStrings.Create(MyItem);
end;
destructor Command.Destroy;
begin
FMyItems.Free;
inherited;
end;
end.
I appreciate any help I get,
I have this component , created without any error, I click on Commands (TCollectionItem)
Then add new command, then I click Tstrings, nothing happening, I suppose to see TStrings box to add text (just like Tmemo lines box) , any idea what I’m missing please ?
Thanks
=====================================
unit MyCollections;
interface
uses
Classes;
type
MyItem = class(TCollectionItem)
private
FDescription : String;
published
property Description : String read FDescription write FDescription;
end;
TStrings = class(TCollection)
private
function GetItem(Index: Integer): MyItem;
procedure SetItem(Index: Integer; const Value: MyItem);
public
function Add: MyItem;
function Insert(Index: Integer): MyItem;
property Items[Index: Integer]: MyItem read GetItem write SetItem;
end;
Command = class(TCollectionItem)
private
FID : Integer;
FMyItems : TStrings;
public
constructor Create(Collection: TCollection); override;
destructor Destroy; override;
published
property ID : Integer read FID write FID;
property MyItems : TStrings read FMyItems write FMyItems;
end;
TCommands = class(TCollection)
private
function GetItem(Index: Integer): Command;
procedure SetItem(Index: Integer; const Value: Command);
public
function Add: Command;
function Insert(Index: Integer): Command;
property Items[Index: Integer]: Command read GetItem write SetItem;
end;
TFactory = class(TComponent)
private
FCommands : TCommands;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
property Commands : TCommands read FCommands write FCommands;
end;
procedure Register;
implementation
{ TCommands }
procedure Register;
begin
RegisterComponents('Test Commands', [TFactory]);
end;
function TCommands.Add: Command;
begin
Result := Command(inherited Add);
end;
function TCommands.GetItem(Index: Integer): Command;
begin
Result := Command(inherited Items[Index]);
end;
function TCommands.Insert(Index: Integer): Command;
begin
Result := Command(inherited Insert(Index));
end;
procedure TCommands.SetItem(Index: Integer; const Value: Command);
begin
Items[Index].Assign(Value);
end;
{ TFactory }
constructor TFactory.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FCommands := TCommands.Create(Command);
end;
destructor TFactory.Destroy;
begin
FCommands.Free;
inherited;
end;
{ TStrings }
function TStrings.Add: MyItem;
begin
Result := MyItem(inherited Add);
end;
function TStrings.GetItem(Index: Integer): MyItem;
begin
Result := MyItem(inherited Items[Index]);
end;
function TStrings.Insert(Index: Integer): MyItem;
begin
Result := MyItem(inherited Insert(Index));
end;
procedure TStrings.SetItem(Index: Integer; const Value: MyItem);
begin
Items[Index].Assign(Value);
end;
{ Command }
constructor Command.Create(Collection: TCollection);
begin
inherited Create(Collection);
FMyItems := TStrings.Create(MyItem);
end;
destructor Command.Destroy;
begin
FMyItems.Free;
inherited;
end;
end.
↧
Delphi CE - Firedac Client/Server... - by: Marcelo
I installed Delphi CE thinking about using Firedac, however, reading at "
www.embarcadero.com/products/delphi/product-editions
", it is informed that it is not possible to use client / server with Firedac.
My question, is it possible to change this rule in this CE version?
If it is not possible, is there any Firedac-like data access component that can be installed?
Thank you very much.
My question, is it possible to change this rule in this CE version?
If it is not possible, is there any Firedac-like data access component that can be installed?
Thank you very much.
↧
Can't attach JPG files to message - by: Wallace
I'm trying to add a 40kb jpg file to my post.
I get the message
"Attachment image size exceed limit allowed by configuration"
The configuration is 0.1 mb or 100kb so what is wrong ?
I get the message
"Attachment image size exceed limit allowed by configuration"
The configuration is 0.1 mb or 100kb so what is wrong ?
↧
↧
Delphi 10.2 TClientDataSet truncates string fields to 20 characters - by: Scott
I have an application that has a TAdoQuery feeding a TDataSetProvider feeding a TClientDataSet that feeds a TDBGrid.
The string fields longer than 20 characters are truncated to 20 characters. This behavior only surfaced in the 10.2 environment. In Delphi 6, the fields showed without issue. When I push the field from the dataset to a showmessage, it is still truncated, so I don't think it is the TDbGrid that is the problem. Any insight? Thanks in advance!
The string fields longer than 20 characters are truncated to 20 characters. This behavior only surfaced in the 10.2 environment. In Delphi 6, the fields showed without issue. When I push the field from the dataset to a showmessage, it is still truncated, so I don't think it is the TDbGrid that is the problem. Any insight? Thanks in advance!
↧
SOAP response error in iOS - by: Leo
I wrote an App that consumes SOAP 1.1 web service at a remote server. The server side web service is written in C#. Everything works fine in Windows 10, but it prompts error when running in iOS/OSX.
Error:
Project [project name] raise exception class ESOAPDomConvertError with message 'DocumentElement schemas.xmlsoap.org/soap/envelope/:Envelope expected, www.w3.org/1999/xhtml:html found
This error indicates the returning document is not "Envelope". I validate the web service by using SOAPUI, the return XML is correct and with "Envelope" is in the header.
Does anyone know the reason why?
Error:
Project [project name] raise exception class ESOAPDomConvertError with message 'DocumentElement schemas.xmlsoap.org/soap/envelope/:Envelope expected, www.w3.org/1999/xhtml:html found
This error indicates the returning document is not "Envelope". I validate the web service by using SOAPUI, the return XML is correct and with "Envelope" is in the header.
Does anyone know the reason why?
↧
Code Rage X found file - by: Álax
FILE: CloudAPI_CodeRageX_Final.zip
Hello, I need the demos. Link from file is broken.
Someone has this file.
Paweł Głowacki
Embarcadero Technologies
CodeRage X 13-Oct-2015
Link Blog:
community.embarcadero.com/blogs/entry/my...hi-coderagex-session
Link YouTube
www.youtube.com/watch?v=rtZkVAOvavU
Link ERROR file DEMO:
s3-eu-west-1.amazonaws.com/embt/events/C..._CodeRageX_Final.zip
Hello, I need the demos. Link from file is broken.
Someone has this file.
Paweł Głowacki
Embarcadero Technologies
CodeRage X 13-Oct-2015
Link Blog:
community.embarcadero.com/blogs/entry/my...hi-coderagex-session
Link YouTube
www.youtube.com/watch?v=rtZkVAOvavU
Link ERROR file DEMO:
s3-eu-west-1.amazonaws.com/embt/events/C..._CodeRageX_Final.zip
↧
Formatting TJSONNumber JSON Output... - by: John
I am struggling to output numbers with the correct accuracy. Basically using TJSONObjects and TJSONArrays I am using the AddPair with a key and TJSONNumber. In the resulting string I need the numbers to have x or less digits on the fraction. So, I will have a call like:
events->AddPair( "correction", new TJSONNumber( corr ));
With corr needing be displayed like 0.000000 in the JSON file. I am getting either huge fractions or exponents. Both are not acceptable for this purpose. And it varies by object. Has anybody encountered this and figured it out? I cannot find any documentation or examples.
Thank you,
John
events->AddPair( "correction", new TJSONNumber( corr ));
With corr needing be displayed like 0.000000 in the JSON file. I am getting either huge fractions or exponents. Both are not acceptable for this purpose. And it varies by object. Has anybody encountered this and figured it out? I cannot find any documentation or examples.
Thank you,
John
↧
↧
Code Rage X found file - by: Álax
File: CloudAPI_CodeRageX_Final.zip
Paweł Głowacki
Embarcadero Technologies
CodeRage X 13-Oct-2015
Link Blog:
community.embarcadero.com/blogs/entry/my...hi-coderagex-session
Link YouTube
www.youtube.com/watch?v=rtZkVAOvavU
Link ERROR DEMO:
s3-eu-west-1.amazonaws.com/embt/events/C..._CodeRageX_Final.zip
Paweł Głowacki
Embarcadero Technologies
CodeRage X 13-Oct-2015
Link Blog:
community.embarcadero.com/blogs/entry/my...hi-coderagex-session
Link YouTube
www.youtube.com/watch?v=rtZkVAOvavU
Link ERROR DEMO:
s3-eu-west-1.amazonaws.com/embt/events/C..._CodeRageX_Final.zip
↧
Change directory installation - by: Higor
It's possible to change the Delphi installation directory from "C:\Program Files (x86)\Embarcadero\Studio\17.0" to "C:\Embarcadero\Studio\17.0" without removing and installing again?
↧
Error starting Delphi 10.2.3 Tokyo (...local time is invalid...) - by: Dival
Today (17/10/2018) I accessed the site
www.embarcadero.com/products/delphi/starter/free-download
and downloaded this version.
I installed the Delphi 10.2.3 Tokyo version using the serial number I received in the Embarcadero email, right after starting the download above.
Perfect, everything worked right!
But when starting Delphi this error appears:
"Exception ELocalTimeInvalid in module rtl250.bpl at 0015F4A3. The given "19/10/2019 23:59:59" local time is invalid (situated within the missing period prior to DST) ".
The Delphi's IDE does not even show up. Only the error appears, and when click OK the screen is closed.
How do I solve this?
Dival - Sao Paulo/Brasil.
![]()
I installed the Delphi 10.2.3 Tokyo version using the serial number I received in the Embarcadero email, right after starting the download above.
Perfect, everything worked right!
But when starting Delphi this error appears:
"Exception ELocalTimeInvalid in module rtl250.bpl at 0015F4A3. The given "19/10/2019 23:59:59" local time is invalid (situated within the missing period prior to DST) ".
The Delphi's IDE does not even show up. Only the error appears, and when click OK the screen is closed.
How do I solve this?
Dival - Sao Paulo/Brasil.
↧