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

Hello, (I'm using delphi 7 and paradox 9) , i'm coping data from table paradox to text file and i m using Timer (interval=30 minute) ,this table is updated every 30 minutes by another user which causes sometimes a blockage to the table paradox and if i close the application the blockage will be removed any solutions please .
0
Cloud Class® Course: Microsoft Windows 7 Basic
LVL 12
Cloud Class® Course: Microsoft Windows 7 Basic

This introductory course to Windows 7 environment will teach you about working with the Windows operating system. You will learn about basic functions including start menu; the desktop; managing files, folders, and libraries.

I have used TDBGrid and its related components which helps to populate data in Dbgrid. I have selected multiple (Three) row data record form Dbgrid and trying to populate these selected record on Quick report with separate pages along with respectively title.  I tried to achieve this functionality but unable to do same as my requirement. Please give me any suggestion or   solution to achieving all DBgrid selected data to populate with separate pages along with title on Quick report.

for additional information is, I am using Delphi 7 and  Quick report.

Please let me know in case of any query.

Regards
Manoj Yadav
0
Hello Community,

I'm absolutely new on programming and I want to learn Delphi as my main and solid first choice.
Searching on Google I did not find any interesting resource about how can I start programming on Delphi (or not just with updated content). I want to know about learning sites, learning video courses, ebooks and all of them completely easy to follow and readable.

Please, I hope that someone can help me with my request.
Also, Are there any free version of Delphi to start programming with?. And the result of the created apps with this IDE can be used for business?.

Regards,
0
Unsure what to ask :), but Record data being passed from script to plugin is incorrect

When the label1.caption is supposed to show MyInt instead is shows "71850800" no matter what

Script:
uses sysutils, classes;

type
  TMainSet = Record
    MyInt : Integer;
  end;
  PMainSet = ^TMainSet;

var
  MainSet : PMainSet;

function StrToBool(s:string):boolean;
begin
  if s = 'True' then result:= true else result:= false;
end;

function PluginProc(Code: Cardinal; p1, p2, p3: WideString): WideString; stdcall;
begin
  case code of
    0: result:= script.path;
  end;  
end;

procedure StartPlugins;
begin
  Script.StartPlugin(script.path+'Project1.dll', @MainSet, false{ìîäàëüíî});
end;

procedure This();
var
  ii:integer;
begin
  New(MainSet);
  while delay(2000) do begin
    ii := Random(9999);
    print(ii);
    MainSet^.MyInt := ii;
  end;
end;

begin
  Script.MainProc(@StartPlugins);
  script.newthread(@This);
  Delay(-1);
end.

Open in new window


Plugin:
unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

const
  WM_PluginShow = WM_USER + 5402;

type
  Tplugin = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    procedure ShowPugin(var Msg: TMessage); message 

Open in new window

0
I am working for a company now for a couple of weeks. The build process is done mostly manually and takes several hours spread over several days. The languages in use are C#, COBOL, Delphi, Visual Basic 6, and of course the database with T-SQL. For the version control, we use Apache Subversion (SVN), except for COBOL code and the documentation, which is kept in Microsoft Visual SourceSafe (VSS). I have the idea to improve the process using a continuous delivery tool. Do you think that Jenkins would do the job?

Thank you for your reply.
0
in Implementing Web Application Proxy in Windows Server 2012 ,can i publish exes and little bit internal Software's like ( notepad,excel,adobe reader..our internal delphi related exes).
0
Hi Experts,
I have an issue in column sorting in a grid which is a dev express grid ( tcxgrid).

So in the column if i have records eg ABCDE, A ABCDE, AB ABCDE etc then it should sort as A ABCDE, AB ABCDE, ABCDE.

Is there any way to do this?
0
I created a TextEditor in C#, Now i want to load a file in the text editor through delphi so i used  shell execute function to achieve this but When i execute this it is opening the text editor without opening the file. My code is,
ShellExecute(0, 'open', PChar('C:\Users\Documents\Visual Studio 2008\Projects\WindowsFormsApplication1\WindowsFormsApplication1\obj\Debug\WindowsFormsApplication1.exe'),PChar('C:\Users\Desktop\215_1.rtf') , nil, SW_SHOWNORMAL);
and also when i try to load a file in Notepad (by changing the path), it is opening the file but not in my text editor  
Whats wrong in it?
0
I wrote a web service in delphi (10.2.3), when I try to import the wsdl generated by the service with wsimport I get some errors like:

  [ERROR] undefined simple or complex type 'soapenc:Array' 

Open in new window


 How can I avoid these errors?

Attached the wsdl file of the service
 wszeus.wsdl.txt
0
I want to execute a external application eg. anotherapp.exe or start.bat. After starting that application I want to check it's resource usage every x amount of seconds.
  1. Execute a app
  2. Retrieve it's resource usage every x amount of seconds

I mainly want to use this to execute x amount of .bat files so using the app caption to get the resource usage is not really an option.
0
Cloud Class® Course: Microsoft Azure 2017
LVL 12
Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

In Delphi 10.2 Tokyo:

I created a package called TestFrameCompPkg that has a frame TTFrameComp as a component. The package build and install work as expected.

My problem occurs at design time with the ShowEdit and ShowLabel properties. When I place the component on the form, the property changes don't Hide and Show the ToolBar components in the IDE. But each does function normally at run time.

How do I get the show/hide properties to function at design time?


Code Example is below:

FrameComp.dfm
object TFramComp: TTFramComp
  Left = 0
  Top = 0
  Width = 800
  Height = 291
  TabOrder = 0
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 800
    Height = 29
    Caption = 'ToolBar1'
    TabOrder = 0
    ExplicitLeft = 192
    ExplicitTop = 48
    ExplicitWidth = 150
    object Edit1: TEdit
      Left = 0
      Top = 0
      Width = 121
      Height = 22
      TabOrder = 0
      Text = 'Edit1'
    end
    object Label1: TLabel
      Left = 121
      Top = 0
      Width = 31
      Height = 22
      Caption = 'Label1'
    end
  end
end

Open in new window


FrameComp.dfm
unit FrameComp;
interface
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  Vcl.ComCtrls, Vcl.ToolWin;
type
  TTFramComp = class(TFrame)
    ToolBar1: TToolBar;
    Edit1: TEdit;
    Label1: TLabel;
  private
    function GetShowEdit: boolean;
    

Open in new window

0
I am creating an HTML message in Delphi with Indy and IdMessage.  I am attaching a company logo and it is referenced in the email to put the Logo in the correct place.  

All this works, except the attached logo shows up also as an Attachment.  Is there a way to do this and not have a visible attachment?
0
I need to use various fonts for various parts of text in TRichEdit, Delphi Tokyo. For part of the text I need 'Times New Roman' and for the other 'Symbol'. So far does not work what I tried. Either font is set the samo for the whole text or my selected character does not show up.
0
My Delphi programs are showing as HEUR/AGEN virus infected by Avira AntiVirus. That too files that I have uploaded on the web about a year ago.
0
Where has Delphi Formus gone ?

https://forums.embarcadero.com/
0
please help me to translate this memory loader to delphi

#include "stdafx.h"
#include <Windows.h>

DWORD GetSectionProtection(DWORD sc)
{
    DWORD dwResult=0;
    if (sc & IMAGE_SCN_MEM_NOT_CACHED)
        dwResult |= PAGE_NOCACHE;

    if (sc & IMAGE_SCN_MEM_EXECUTE)
    {
        if (sc & IMAGE_SCN_MEM_READ)
        {
            if (sc & IMAGE_SCN_MEM_WRITE)
                dwResult |= PAGE_EXECUTE_READWRITE;
            else
                dwResult |= PAGE_EXECUTE_READ;
        }
        else 
        {
            if (sc & IMAGE_SCN_MEM_WRITE)
                dwResult |= PAGE_EXECUTE_WRITECOPY;
            else
                dwResult |= PAGE_EXECUTE;
        }
    }
    else
    {
        if (sc & IMAGE_SCN_MEM_READ)
        {
            if (sc & IMAGE_SCN_MEM_WRITE)
                dwResult|=PAGE_READWRITE;
            else
                dwResult|=PAGE_READONLY;
        }
        else 
        {
            if (sc & IMAGE_SCN_MEM_WRITE)
                dwResult|=PAGE_WRITECOPY;
            else
                dwResult|=PAGE_NOACCESS;
        }
    }

    return dwResult;
}


inline BOOL IsImportByOrdinal(DWORD ImportDescriptor)
{
    return (ImportDescriptor & IMAGE_ORDINAL_FLAG32)!=0;
}

#ifndef MIN
#define MIN(a,b) ((a)<(b)?(a):(b))
#endif

//typedef BOOL (WINAPI *pointMAIN)(int , char*);

typedef BOOL (WINAPI *pointWINMAIN)(HINSTANCE, HINSTANCE, LPSTR, int);


HMODULE MemLoadExe(PBYTE data)
{
    IMAGE_FILE_HEADER        *pFileHeader        = NULL;
 

Open in new window

0
I have a horrible problem with Delphi XE7.
The Hard Disk on my Desktop PC crashed and I had to reinstall Delphi XE7.
Although my Laptop and Desktop have identical structures for all the components and .pas files, I can't compile my Apps on the Desktop in the IDE.
The Laptop compiles like clockwork, but on my Desktop I get continuous "Out of Memory" exceptions, and then the IDE aborts.
I have tried to use IdeFixpack, and that made it even worse. I also tried Madshi's MadCollection with the same result.
I have spent 3 Days on this, without success. Has anybody an idea, what the problem could be?
0
This happens when a particular table is opening upon initialization.

Got this message using EurekaLog:

Exception:
--------------------------------
  2.2 Address: 008C4A85
  2.5 Type   : EApolloError
  2.6 Message: Scope Set failed.
  2.7 ID     : 4A5B93DE
  2.11 Sent  : 0

I'm aware this question is vague but I'm hoping someone on here has encountered a similar issue. Thanks.
0
I wanna make the mobile game called '2248' on PC and I'm almost done, im just having a problem with the Accept parameter of the Dragover event. The problem is that I want the program to allow the dragging only the panel which's caption is identical, or if I have already dragged a few panels before then also allow the drag if  the sum of the panels caption dragged before equals to the one im trying to drag to. And also, I dont want the panels to be able to dragged into panels that are not their 'close-neighbours', so only allowing to drag to the panels next to it.
Here is a picture of how It actually looks like, if u dont know the game:https://m.crazygames.com/game/2248
procedure TForm1.balklikk(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button=MBleft then begin
TPanel(sender).BeginDrag(True);
kiindulo:=strtoint(TPanel(sender).caption);
oszeg:=strtoint(TPanel(sender).caption);
end;
end;

procedure TForm1.over(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept :=(Source is Tpanel) and ((Tpanel(sender).caption=Tpanel(source).caption) or (oszeg=strtoint(Tpanel(Sender).caption)));
Tpanel(source).Tag:=1;
if (Source is Tpanel)
  and (Sender is Tpanel)
    and (Source <> Sender)
      and (Tpanel(Sender).Tag=0)
        and(Accept=true)
          and (State = dsDragEnter) then begin
z:=z+1; T2[z]:=Tpanel(Sender); Tpanel(Sender).Tag:=1; oszeg:=oszeg+strtoint(Tpanel(Sender).caption);
end;
end;

Open in new window

on the 'balklikk' event of the panel it just checks if it was a left click, if yes then the dragging begins. Also i have declared here a variable that later on in the over event counts the sum of the previously dragged panels captions. If the initial caption is= with the one we dragged to(source.caption=sender.caption) then it will go to a for cicle in which i store the dragged panels and also i increase the sum(oszeg) with the (sender), so next time something gets dragged, it also gets analyized whether the sum is = or not.
0
Get your problem seen by more experts
LVL 12
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Hi. I'm working in Delphi xE7.  I recently changed computers.  I installed the same delphi on the new pc and when I tried to run a certain part of my project where I use a Timage on a form I got an exception EInvalidGraphic with message "Unknown picture file extension (.png)."  Mind you this program was working on the previous pc.  Is there something that I'm missing perhaps when I installed on the new pc?  Any ideas or suggestions of what I could look for would be greatly appreciated.  Thanks in advance.
0
Hi !
Are it possible to rotate a video using Dspack ?
Have downloded JongovEdgeDetectFilter but I can´t get it to work !
Ilkka
0
Hello,i wish that you are fine
My problem is that i want to send a text file from my computer to another one using Delphi 7 how can i do this please
thanks.
0
I am using Delphi con connect to mysql, using myDac componentes (paid version).

I have a table called items(upc,description,retail,picture).
picture is a Blob Field storing .bmp or .jpg images.

How can I show a .jpg image from a BLOB field using the DBCtrlGrid and DBImage component on Delphi XE7.

There is no way for me to have .jpg in the Blob and be able to show it on the DBImage over the DBCtrlGrid, as if .bmp is the only image supported, only .bmp works ok.

I used the DBCTRLGRID to arrange the way visual components should display information, but it seems only to support display for .gmp images, I already put in use the .jpeg library but no luck.
DBCtrol_grid_noJPG_SUPPORT.png
0
I want to programmatically have a form made visible in its normal size on the screen, when currently it is minimized (so just appears as an icon in the windows bar
0
Hi
Can you some one help me for following
i am using Quick Report 6  and Delphi Berlin 10.1

What i need
 generate report and send via e mail  

option  to be saved or send mail
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.