Go Premium for a chance to win a PS4. Enter to Win

x

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

Need to convert text string to Bitmap image.  I have been provided C# code, but I program in Delphi.  The data is received from a pinpad and is a signature.

I have attached a sample cs document that they provided,

Any idea on how to convert this document to delphi?  Ultimately, I pass the text to a function that returns a bitmap or initializes an existing bitmap..
TriPosSignatureGenerator.cs
0
Free Tool: Site Down Detector
LVL 11
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Hey guys so I have a big problem. About 20 years ago my partner helped program a software for our business but he is no longer here with us. I have all my company information stored in this program. Yesterday suddenly my computer crashed while paradox was running. But I managed to boot it back up.

When I reopen PARADOX And try to access the directory this shows up

Cannot open LINEITEM.DB.
Index is out of date.
Table C:\GM2\LINEITEM.DB

Now I am completely computer illiterate and have tried to do my own research but it's like you guys are speaking in a different language. So it would really be appreciated if anyone can explain to me how I can fix this in more simple terms. I'm thinking reindex?
0
I have use other db components in delphi, but I am having a particular issue using firedac.
Using Delphi10 Seattle, Sql Server 2012.
I have a firedac table pointing to a dataset.
that dataset has 3 fields.


reg_id (integer)
id_css(varchar 8)
reg_value (varchar(250))

i have this table joined to another table using masterdetail, on the reg_ID
a particular record exists in the data set, and is shown in this query:

select * from dbregval where id_css = 'PSI99'
order by reg_id
(see pic1)
pic1.JPG
regID = 128000.
id_css = psi99
value string = '1'

in the program, I set the filter options to FOCaseInsensitve, foNoPartial
I have set this both at the component level and in code, before the table is opened.

when reg_id is 128006, a records is found (because id_CSS in db is PSI99)
(see file 128006.jpg)
128006.JPG
however, when reg_id is 128000, no record is returned in firedac
(dmCommon.tblUserReg.isEmpty is returning true)
(see file 128000.jpg)
128000.JPG
This is the sql as reported by firedac monitor, when I refresh the table:

SELECT A.*
FROM dbo.dbRegVal A
WHERE (A.reg_id = :reg_id) AND
(((A.reg_id = :FD__WN_reg_id) AND (A.id_css < :FD__WN_id_css)) OR ((A.reg_id < :FD__WN_reg_id))) AND
(id_css = 'PSI99')
ORDER BY A.reg_id DESC, A.id_css DESC

so, the question is : how do I use case insensitive filters, using firedac?
and why is this not working?  I'm new to firedac?
any idea what it is that I am …
0
Hi
i'm developping a project with delphi 7 and  I need to copy some fields from one table in paradox 9 to another table in paradox 9 .
Somebody help me please .
0
Hello, I'm a Windows software developer (Delphi language) and I'm trying to install one of my programs on a client's newly rented machine running Windows Server 2016 64-bit (this OS is uncharted territory for me).  Even though my program is developed in 32-bit, it runs on pretty much any other Windows OS and also 64-bit systems. Tried and tested. When I try to install it on this particular system though, I get a big blue window with the message:

"This app can't run on your PC"

(see attached screenshot), see additional screenshot for specs of machine).

Could it be some heavy duty anti-virus scanner running on that machine rejecting my software? Any thoughts please?

Thanks
    Shawn
ee-1.jpg
ee-2.jpg
0
Hi

I looking for a TEdit with gradient color.  How to change a TCustomEdit for this?

thanks
0
Hello,

I have an Android app written in Delphi Seattle.

I need to show a form modally in a function then get back the value of an Edit object.

However, this doesn't work:

Function GetMyValue: String;
Begin
  Form1:=TForm1.Create(Nil);
.....

     ShowModal(
         procedure(ModalResult: TModalResult)
         begin

           if ModalResult = mrOK then
             Begin
              Result  := MyEdit.Text;
             End;
             
         end);

I get a compiler message: [dcc32 Error]  E2555 Cannot capture symbol 'Result'
I know that in anonymous method I cannot refer to the main functions result, but I need to get back the text when the user closes the form.

How can I do that?
Thank you very much!
0
Hello guys I need help for transcript a routine in PHP for Delphi.

In PHP I have this routine

$i 			= 0;
$geral 	= 0;
while($resposta = mysql_fetch_array($sql)){

		$Qtd[]			        =	$resposta['QTD_ATUAL'];
		$ID_PRODUTO[]	=	$resposta['Id'];
		$CODIGO[]		        =	$resposta['CODIGO'];
		$LOTE[]			        =	$resposta['LOTE'];
		$VALIDADE[]		=	$resposta['VALIDADE'];
		
		$geral		                =	array_sum($Qtd);

$i++;
}

Open in new window


How do that  in Delphi?
0
I have created a mail program that use web browser as the body.

I must add a unsubscribe for the email body.

The code3 worked fine when I was using Delphi XE 8 . Now I am using Delphi XE 10.2.

My Code..
I have called TwebBrowser "htmlEditor"

Procedure TFrame15.Button1Click(Sender: TObject);
Var
  htmlDoc: IHTMLDocument2;
  HtmlSelObj: IHTMLSelectionObject;
  HtmlTxtRng: IHTMLTxtRange;
  S: WideString;
begin
  htmlDoc := htmlEditor.Document as IHTMLDocument2;
  htmlDoc.execCommand('InsertImage', false, '');
  HtmlSelObj := htmlDoc.selection;
  c:=('<a href=''mailto:'' + b + '?subject Unsubscribe>Unsubscribe</a>'''');
   if HtmlSelObj.type_ = 'Control' then
    HtmlSelObj.Clear;
    HtmlTxtRng := HtmlSelObj.createRange as IHTMLTxtRange;
    HtmlTxtRng.pasteHTML(S);
   htmlEditor.SetFocus();  
end;

Open in new window

0
How I Close and restart the current application I am using Delphi 10.2 Tokyo
0
[Webinar] Cloud Security
LVL 11
[Webinar] Cloud Security

In this webinar you will learn:

-Why existing firewall and DMZ architectures are not suited for securing cloud applications
-How to make your enterprise “Cloud Ready”, and fix your aging DMZ architecture
-How to transform your enterprise and become a Cloud Enabler

I have a website that runs xenforo forum software. I basically have a donations user group and those users have the ability to download some software. I want to add a login form to my application that checks if that user is in that group and if he / she is then it will open the main form. I want to know how I can make such a login form?
0
Hello.
You can close all database tables except some?
  (what I need)
And then reopen them?
I use absolute database that is similar to BDE
If so, how to do so many thanks.
Simo
0
Hi
Please help me to insert picture into access,  with delpi 7 ,
data type Is "Attachment'
GoodDay
structure.jpg
0
When trying to install the Graphics32 packages on Delphi XE 10.1 Berlin, it says that rtl220.bpl is missing.
The rtl found in the Delphi bin directory is indeed rtl240
How can I fix this ?
Thanks
0
TBannerAd can't load via LoadAd in Delphi 10.2 Tokyo - Firemonkey Android.

Uses Permissions - OK

Access network state

Internet

AdMob Service = True for Project/Options/Entitlement List - OK

AdUnitID - OK

procedure TForm1.FormCreate(Sender: TObject);
begin
BannerAd1.AdUnitID:='ca-app-pub-3940256099942544/6300978111';
// AdMob Banner Sample ad unit ID
// Also I tried for my real AdUnitID
end;

Open in new window


My sample code for to try - OK

procedure TForm1.Button1Click(Sender: TObject);
begin
BannerAd1.LoadAd; 
end;

Open in new window


I used AdMob for my old project in different Delphi version.

There didn't any problem for this.

But, my application is freezing for a time and TBannerAd can't load via LoadAd for this project.

Log monitor is giving this error for this problem.

The Google Play services resources were not found.

Check your project configuration to ensure that the resources are included.
0
to be more specific slow connection client got disconnected from the server when write memorystream with this code in on execute event
 if OutboundCmds <> nil then
    begin
      for I := 0 to OutboundCmds.Count - 1 do
      begin
 
        AContext.Connection.IOHandler.Writeln(OutboundCmds.Strings[I],
          IndyTextEncoding_UTF8);
 
 
        MS := TMemoryStream(OutboundCmds.Objects[I]);
        if MS <> nil then
        begin
          AContext.Connection.IOHandler.LargeStream := true;
          AContext.Connection.IOHandler.Write(MS, 0, true);
        end;
      end;
 
    end;
 
  finally
    if OutboundCmds <> nil then
    begin
      for I := 0 to OutboundCmds.Count - 1 do
      begin
        OutboundCmds.Objects[I].Free;
      end;
    end;
    OutboundCmds.Free;
  end;

Open in new window


specially here
 MS := TMemoryStream(OutboundCmds.Objects[I]);
        if MS <> nil then
        begin
          AContext.Connection.IOHandler.LargeStream := true;
          AContext.Connection.IOHandler.Write(MS, 0, true);
        end;
      end;

Open in new window


clients with good connection speed don't have any problems . what could be the problem with slow internet ?

if i remove the memory stream write they dont get disconnected and remains connected
0
I need to update a datum but change to each record in mastersource.
datamod.TTGiacenzaMangimeQtascarico.Value is a value that must be incremented.
Currently, if the record change (the ones shown on the left in the photos), the value of datamod.TTGiacenzaMangimeQtascarico.Value changes with
scaricototale: + = scaricototale datamod.PollaioTScaricoMangime.Value , and you should upgrade and increase.

It should increase at each record change. You have to upgrade.
How to do ?
Thank you

Image 1 procedureImage 2 procedure
procedure Tdett_form.calcolaGiacenza;
var
scaricoTotale,scaricogen:extended;
begin
 try
  DataMod.PollaioT.DisableControls;
   scaricototale:=0;
  datamod.PollaioT.Filter:='Nome='''+Nomeedit.Text+'*''';
  datamod.PollaioT.Filtered:=true;
  DataMod.PollaioT.First;
    while not DataMod.PollaioT.Eof do
    begin
      scaricototale:= scaricototale+datamod.PollaioTScaricoMangime.Value;
      DataMod.PollaioT.Next;
    end;
     If datamod.PollaioT.Locate('Articolo',datamod.TTGiacenzaMangimeArticolo.Value,[locaseinsensitive]) then
     begin
     datamod.TTGiacenzaMangime.Edit;
     datamod.TTGiacenzaMangimeQtascarico.Value:=scaricototale;
     datamod.TTGiacenzaMangime.Post;
     end;

finally
  DataMod.PollaioT.enableControls;
  datamod.PollaioT.Filtered:=false;
end;
     end;

Open in new window

0
Hi
I havean ACCES DB with Delphi. I open the Db from a  menuline open DB. The I have a menuline to close de DB. So I can use different DB for each year.
When I run my software from delphi (execute) it run properly but when i close the Database and without to return to Delphi, if I trie to open it again, I have nothing in my Different db grid. So it seems that it is not open but I haven't any error mesage just blank dbgrid an d DBtext component.
Any idee? Beacause if I close le DataBase and reopen it again it schould work.
Regards
Claude
0
How to check for available space?
For example, unable to copy file to Mobile Device. There is an Mobile Device Copy Error. It is necessary to find out the reason, whether it happened because of a lack of available space.
0
Concerto Cloud for Software Providers & ISVs
LVL 5
Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

I am programming in Delphi XE8 and have been looking for some time for software that I can call from my program that can convert from as many formats as possible to text or RTF.

Any suggestions?
0
Hi! I've been programming for several years in Delphi, then C++Builder but recently I started programming concurrrently(threads)
I've read on documentation VCL should be used by "synchronice" method. My question: all of the objects from VCL should be
treated within a Synchronice call or only when severals threads use the same object or only when they affect the GUI(labels, buttons
and others properties)?. Suppose I have n threads but each one of them use their own objects(labels, tlistbox, etc) inside a TPage for each one, so there's a TPageControl for all of them should I use Synchronize?
0
Hi there,

I made a small win32 db-applicatie for warehouse for education a couple of years ago (Delphi 2007), using ADO en msaccess db.
Since a couple of months two things happen with the application:

1 slow start up and slow shut down in win10. In DELPHI IDE it 'hangs' on olepro32.dll.
2 i can't reproduce but some win10 user get errors (external exception / access violations)

I read something about how MS after june 2017 updates dll's.
Could that have anything to do with this?

Every help appreciated.
0
Hi,
I am using QuickPDF (DeBenu) to fill a PDF form and all is working well except checking a radio-button.
What is the correct syntax (any language) to check the first radio-button in the following group:
* * * * * * * *
Field10: form1[0].#subform[0].period_1[0]
Field 11: form1[0].#subform[0].period_1[0].PaymentPeriodM[0];    Value=Off
        11:1. Off
        11:2. 0
        11:3. 1
Field 12: form1[0].#subform[0].period_1[0].OtherSpecify[0]
* * * * * * * *
Many thanks,
-Itai
0
i have Tpagecontrol with 5 tabsheet. example i work in tabsheet4.  is it possible to close the tabsheet4 in runtime mode? i mean when i run the program, i can easily close the tabsheet4 (like in browser such firefox or elese). and when i want to see the tabsheet4 i can open it again using button or navbar, is it possible?

many thax
0
Im a Delphi programmer with som old HTML experience. I want to go JS node and Typescript. Where should i start? What do i need to know before i start with JS node and Typescript or is it just to go?
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.