Delphi

59K

Solutions

17K

Contributors

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.

Share tech news, updates, or what's on your mind.

Sign up to Post

I have a large Delphi application, compiled on one machine with Delphi XE10.1 Berlin.
It uses a package I have developed, and also installed in the same environment.
No problem there.
My colleague has installed Delphi XE10.1 Berlin on his machine.
I then tried to install the same package but gets this error : impossible to load package ... %1 is not a valid win32 application
I wonder why on my computer I could install that package without any problem, but not on his machine.
0
PMI ACP® Project Management
LVL 13
PMI ACP® Project Management

Prepare for the PMI Agile Certified Practitioner (PMI-ACP)® exam, which formally recognizes your knowledge of agile principles and your skill with agile techniques.

I try an  Https  POST  but the response  is empty . i'm with indy  10.5. It was working with indy 9,  after upgrading to indy 10  a response  is empty '';

   
      TSideStream = class(TIdMultiPartFormDataStream)
  public
    property RequestContentType: string read FRequestContentType write FRequestContentType;
  end;
      
      DataStream := TSideStream.create;
      
      IdHTTP.ProxyParams.ProxyServer          := '';
    IdHTTP.ProxyParams.ProxyPort            := 0;
    IdHTTP.ProxyParams.BasicAuthentication  := False;
    IdHTTP.ProxyParams.ProxyUsername        := '';
    IdHTTP.ProxyParams.ProxyPassword        := '';

  IdHTTP.Request.ContentLength := -1;
  IdHTTP.Request.ContentRangeEnd := 0;
  IdHTTP.Request.ContentRangeStart := 0;
  IdHTTP.Request.ContentType := 'text/xml';
  IdHTTP.Request.Accept := 'text/xml, */*';
  IdHTTP.Request.BasicAuthentication := false;
  IdHTTP.Request.UserAgent :=  'Mozilla/3.0 (compatible; Indy Library)';
  IdHTTP.HTTPOptions := [hoForceEncodeParams];
  
        DataStream.AddFormField('WUA_VERSION', '1.0');
        DataStream.AddFormField('MODEWUA', 'ACTION');
        Horodatage := FormatDateTime('yyyy-mm-dd hh:nn:ss', Now);
        DataStream.AddFormField('DATE_LOCAL', Horodatage);
        t1 := '01-63-0100-999999-999-54';
        DataStream.AddFormField( 'AGREMENT', t1);
        DataStream.AddFormField('REMOTE_ID', 'A0-9999-9999-710001-71');
       t2 := 'FR5375009P';
        DataStream.AddFormField('ITR_ID', T2);
      

Open in new window

0
After migrating my Delphi application from XE2 to X10.1, I have a strange behavior at design time for one TForm
I can't enlarge it (with the mouse), it stays relatively small regarding how it was on XE2 !!!
There is no dimension constraint (all = 0)
0
I am migrating a delphi application from XE2 to XE10
I had some problem with the IBX component, due to the fact that the units are now prefixed with IBX
After fixing this (in all uses clause involved), compilation was OK
But now I get "Index XSQLDB out of range" at execution time
It happens on a Execproc execution of a TIBStoredProc component : nothing was changed from source of XE2 to XE10
What is the problem then with this "new" TIBStoredProc component
0
I'm doing an application in delphi xe 10. and I use to send messages to cell phone from my vcl application Windows ?
0
OCUPO ENVIAR MENSAJES DE TEXTO A CELULAR DESDE UNA APLICACION  VCL DELPHI ?
0
I am using devexpress component in a delphi program; now i want to make a dll which contains a function whick call the main window in the program!

after making the dll, i called it from C++QT; I got this exception
List index is out of bounds
Which means that ( list index is out of bounds )

I searched for this message and i used madExcept for getting the stackcall... i found that the list of skins in dxRibbonSkins is empty...
When i tried to see why it is empty... i found a condition in the function which loads skins. The condition is:
if not CheckGdiPlus(True) then Exit;

So, we do not load the skins if we do not find the GdiPlus.dll....

But When i search the GdiPlus.dll, I find it on Windows / System32!!

This is my 10th day on the same problem!

** Any one has any idea?

Note: I searche on the devexpresss forum, but i did not find any topic related!

Thanks in advance for your answers
0
I have a program in Delphi which i want to call it from C++QT;

So i want to make a (DLL) which contains a function in delphi to make an instance of the main form and launch the program...

I found many tutorial which all say that i have to do like this:

  frmDllForm :=TfrmDllForm.Create(nil);
  frmDllForm.Show;

** That does not work for the main window (Exception generated), but it does for a simple window from the same application...

The exception is: List Index is out-of-bounds...
Exception** Have you any idea which can help me please?

** Anybody know how to debug a dll in Embarcadero?
0
Hi;
I am trying to generate .lib in Delphi (Embarcadero XE3). for using it in c++ program

I made a package project; and successfully, i could generate the .lib and the hpp headers... but, when i edit the .hpp, i found that it includes all files needed but has no fonctions...
namespace Spicecorelib
{
//-- type declarations -------------------------------------------------------
//-- var, const, procedure ---------------------------------------------------
}      /* namespace Spicecorelib */

** What should i do to make functions exported, i have tried with ( cdecl, stdcall, export)....

thanks for your answers in advance
0
Hello,
when I scroll on the grid, then the current value  should be highlighted in the grid.
The highlighter must change everytime I scroll to a other row.

1.PNG

It should look similar to this: number is 3 and value is 4. Value should be highlighted in the chart.

2.png
How can I do this?
0
Amazon Web Services
LVL 13
Amazon Web Services

Are you thinking about creating an Amazon Web Services account for your business? Not sure where to start? In this course you’ll get an overview of the history of AWS and take a tour of their user interface.

Hello,
I want to visualize Data with Steema Teechart. But the Teechart Components were not in the Toolbox.
I am using Delphi 10.3 Community.
How do I get the Teechart Components in the Toolbox?
0
I have 100 buttons and 100 edits. They are named button1, button2, ..., button100 and edit1, edit2, ..., edit100.
When I click on Button1 then edit1 should be deleted. When I click on Button100 then edit100 should be deleted etc.
How can I do this, without implementing 100 time the same code. I want to implement it only once.
What is an intelligent solution?

1.PNG
0
I have a TDBGrid on the form. One or more columns from the TDBGrid are memo fields.
I get only the output "(MEMO)". How do I get the correct content of the memo displayed in the TDBGrid?

1.PNG
0
Hello,
I have downloaded Delphi 10.3 (Community) without the help.
How can I download the Delphi help without deinstalling Delphi and reinstall it?
0
A month ago I used a Delphi utility (probably named (COMP) to edit BPLs. The utility is a single program that displays all BPL and an edit area.

The form displays:

1. Each BPL

2. List of all BPLs

3. An edit area.


Somehow how my copy of COMP got erased.  Please contact me if you can provide me a copy, or what I can get a copy.


Comp is useful to:

Initial load Delphi on a new PC

Transfer Delphi from one PC to another PC

Validate Xedit\Borland\Delphi\Known Packages

Validate \Delphi\Projects\BPL
0
As my current PC is out  of usage, I use my portable PC
I have a Delphi application accessing (embedded) a Firebird database
I have installed SQL Manager Lite for Interbase & Firebird to be able to easily look at tables, data etc...
Now I configure that tool and can open the database
When I select a table, it shows its structure
But if I double-clic on a table, it is suppose to show the data on the right panel
Instead, it issues several times the same error SQL Code -901 IB Error Number 335544563, Service Display User is not defined
What did I miss there ?
Thanks
0
Hey community,
i have to solve the following task:

1. I need to load a file to an Stream ( TMemoryStream )
2. Create a ZipStream from stream and
2.1  Do some Operatioon with this ZipStream like send it to other computer
3. Save it as a Zip file

function StreamToZipStream( const InStream: TStream; out OutStream: TStream). Boolean;
var ZipMaster1     : TZipMaster;
begin
  //wird nie benutzt: result := 0;
  ZipMaster1 := TZipMaster.create(nil);
  try
    ZipMaster1.DLLDirectory := GetModuleDir;    
    ZipMaster1.AddCompLevel := 9;         // highest compression
    ZipMaster1.AddOptions  := [AddHiddenFiles];
   
    InStream.Position := 0;
    ZipM.AddStreamToStream(TMemoryStream(InStream)); 
    //after add the inStream to the ZipMaster1.ZipStream
    // save it to the OutStream ?    
    ZipMaster.ZipStream.SaveToStream(OutStream);
    result := ZipMaster1.ErrCode = 0;
  finally
    ZipMaster1.free;
end;


InStream := TMemoryStream.Create; 
OutStream := TMemoryStream.Create; 
try 
//load a file to MemoryStream
  InStream.LoadFromFile('File.txt');   

//ZipMaster operation to create  a zip stream, that I can save as .zip from this stream
StreamToZipStream(aInStream, aOutStream ) ;

// I get a file 'File.zip' with the right file size, but I can not handle this file.
// an error message "the archive is corrupted" poped up if I try to do some operations with.
OutStream.SaveToFile('File.zip'); 
finally 
  InStream.Free; 
  OutStream.Free; 
end;

Open in new window


so I can save it as file, but it's not possible to open or to extract it



Thanks for any help
0
I just now am finding out about the KMTimeLine component.  It is a multimedia timeline control similar to older version of Premiere.  It appears to have been released as BETA in 2001 for Delphi 5.0.  Nothing further was done with it.

I've Googled and contacted people associated with the control in hope to purchase it or get the source to be able to compile it with current compiler, but no success.  My last effort, before re-inventing the wheel, is to reach out to the EE community for help.  There was a similar question asked back in 2004 and someone mentioned they had the source and contacted the author for permission to redistribute.  The question was marked resolved.  

In posting here, I'm hoping for some sort of success as well.

Details about this component down below (most of the links are dead).
Merchant listing:
https://webcache.googleusercontent.com/search?q=cache:Tp2ZKgD5x3cJ:https://www.ciemmesoft.com/components_comp/1164/+&cd=1&hl=en&ct=clnk&gl=us
http://www.torry.net/vcl/datetime/packs/kmtimeline.zip

Product homepage :
http://kmmed.tripod.com
0
I have a Delphi application (XE2) where a menu is available on the main form
Selecting an item in the menu, and another form is shown.
When I click on the minimize _ on that form, it becomes ... minimize, and still of course accessible, as a smal rectangle just above the Windows menu bar, at the left bottom of the screen.
That is on my tower PC
When I run the application on other PCs, for example my portable PC, it behaves similarly.
But on some PC (also running Windows 10),simply minimizing the form and it completely disappear, with no way to get it back visible.
0
C++ 11 Fundamentals
LVL 13
C++ 11 Fundamentals

This course will introduce you to C++ 11 and teach you about syntax fundamentals.

very slow behavior when open IE with twebbrowser (borland) - i have a page that open in a c++ program on the cloud - but the all  behavior is slow and evan the images and progress-bar  are stack and not moving- i have image that spin - but trow this way it not spin
0
Delphi (XE2) doesn't play this specific file, but play other. Why this file is problematic ? (being played by Windows with no issue)
open.wav
0
Hi I would like some help if possible with VirtualTreeview. I have a directory list in a text file I want to load into a VirtualTreeview, I have code that works perfect with the normal TTreeview, but have no idea how to make it work with a VirtualTreeview, I will add the text file and the code that works with the normal treeview any help would be appreciated

Thanks in advance


THE TEXT FILE

acmboot.exe
acmboot.lst
autorun.inf
Boffice\bos40.pdf
Boffice\bosbkgrnd.bmp
Boffice\boscmplt.htm
Boffice\boscustm.htm
Boffice\bosres.dll
Boffice\cmdlines.txt
Boffice\completes.htm
Boffice\confirm.htm
Boffice\confirm2.htm
Boffice\custom.rio
Boffice\dapi.dll
Boffice\exchmem.dll
Boffice\fpc.bos
Boffice\iis_srv.inf
Boffice\image1.gif
Boffice\image2.gif
Boffice\image3.gif
Boffice\ismif32.dll
Boffice\launchbo.exe
Boffice\libxds.dll
Boffice\logo16.bmp
Boffice\logo256.bmp
Boffice\mdacc.bos
Boffice\mfc42.dll
Boffice\mpsstp.dll
Boffice\msvcp50.dll
Boffice\msvcrt.dll
Boffice\ntopsvrc.bos
Boffice\ntopwksc.bos
Boffice\proxylat.htm
Boffice\proxyset.htm
Boffice\proxysvr.htm
Boffice\regedit.exe
Boffice\runonce.reg
Boffice\setup32.exe
Boffice\setup95.exe
Boffice\setupbo.exe
Boffice\setupbo.ini
Boffice\setupbo.sdb
Boffice\setupnt.exe
Boffice\vbpros.htm
Boffice\vbpros.rio
Boffice\winntop.htm
Common\Graphics\AVIs\blur16.avi
Common\Graphics\AVIs\blur24.avi
Common\Graphics\AVIs\blur8.avi
Common\Graphics\AVIs\cineapk.avi
Common\Graphics\AVIs\count16.avi
Common\Graphics\AVIs\count24.avi

Open in new window

0
I have a table
CREATE TABLE [main](
    [ID] INTEGER PRIMARY KEY AUTOINCREMENT, 
    [Name] TEXT, 
    [Address] VARCHAR, 
    [Phone] VARCHAR, 
    [E-Mail] VARCHAR, 
    [Vin] INTEGER, 
    [Year] VARCHAR, 
    [Make] VARCHAR, 
    [Model] VARCHAR, 
    [Job Hours] FLOAT, 
    [Pictures] GRAPHIC, 
    [Repair Order Number] INT, 
    [Purchase Order Number] INT, 
    [RO Description] VARCHAR);

Open in new window

I want to display all the columns in my listbox2.
I have tried this code but it only loads the Name column ;
I do see 2 other blank items below the name column
begin
  AccessCameraAppForm.fdloadmainToListbox.Close;
  AccessCameraAppForm.fdloadmainToListbox.ParamByName('UserId').AsInteger:= AccessCameraAppForm.FDQuery1.FieldByName('ID').AsInteger;
  // AccessCameraAppForm.fdloadmainToListbox.SQL.Text := 'SELECT site FROM uyeler ORDER BY site';
  try
    AccessCameraAppForm.fdloadmainToListbox.Open;
    AccessCameraAppForm.ListBox2.Items.Clear;

    while not AccessCameraAppForm.fdloadmainToListbox.Eof do
    begin
      AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[0].AsString);
        AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[1].AsString);
        AccessCameraAppForm.ListBox2.Items.Add
        (AccessCameraAppForm.fdloadmainToListbox.Fields[2].AsString);
      AccessCameraAppForm.fdloadmainToListbox.Next;
    end;
  finally
    AccessCameraAppForm.fdloadmainToListbox.Close;
  end;

Open in new window

0
This is an Delphi MultiDevice app. Using Firedac Query and sQlite database
I am trying to load an image from a blob in an sqlite database into a ListView.
The database DDL
CREATE TABLE [Pictures](
    [PicId] INT, 
    [UsersImage] BLOB);

Open in new window


Here is my code
procedure LoadFromBlob;
var
  BlobStream: TStream;
begin
  // FireDAC.Connected := True;
  try
    AccessCameraAppForm.FDQuerySelect.Open;
    AccessCameraAppForm.FDQuerySelect.First;
    while (not AccessCameraAppForm.viewimgquery.EOF) do
    begin
      // access a stream from a blob like this
      BlobStream := AccessCameraAppForm.viewimgquery.CreateBlobStream
        (AccessCameraAppForm.viewimgquery.FieldByName('UsersImage'),
        TBlobStreamMode.bmRead);
      // access a string from a field like this
      if (AccessCameraAppForm.viewimgquery.FieldByName('PicId')
        .AsInteger = AccessCameraAppForm.FDQuery1.FieldByName('ID').AsInteger)
      then
      begin
        // load your blob stream data into a control
        AccessCameraAppForm.viewimage.Bitmap.LoadFromStream(BlobStream);
         AccessCameraAppForm.ListView2.items.Add();
        BlobStream.Free;
        AccessCameraAppForm.viewimgquery.Next;
      end;
      end;
    except
      on e: Exception do
      begin
        // ShowMessage(e.Message);
      end;
    end;
    // FireDAC.Connected := False;
  end;

Open in new window

I am useing the live bindings to bind the querys image to the listviews item.image2
The code compiles but can not load the image from the sqlite database into the listview or a timage.
Thanks for any help .
This seems to be a problem for me.
I have attached the sorcecode.
Project4.zip
Here is the database
flatrate.db3


I am useing differnt sql here.
Differnt-Sql-Project4.zip
0
I developed a Chess on line game with  IdTcpServer IdTcpClient from Indy with DDelphi Rad studio 10  seattle.  My question is:
I need to know how a client program can be notified when the same client program is disconneced from the internet  for certain reason.
here what I tried to do through the use of IDthreadComponent :

procedure TFChessGamesPage.IdThreadComponentException (Sender: TIdThreadComponent; AException: Exception);
begin
  MyClient1.Disconnect;
  MyClient1.IOHandler.InputBuffer.Clear;
  MyClient1.IOHandler.CloseGracefully;
end;
HowEver it seems that things go very slow and my client program needs long time to realize this Disconnection...
What to do?
thanks in advance
0

Delphi

59K

Solutions

17K

Contributors

Delphi is the most powerful Object Pascal IDE and component library for cross-platform Native App Development with flexible Cloud services and broad IoT connectivity. It provides powerful VCL controls for Windows 10 and enables FMX development for Windows, Mac and Mobile. Delphi is your choice for ultrafast Enterprise Strong Development™. Look for increased memory for large projects, extended multi-monitor support, improved Object Inspector and much more. Delphi is 5x faster for development and deployment across multiple desktop, mobile, cloud and database platforms including 32-bit and 64-bit Windows 10.