[Webinar] Streamline your web hosting managementRegister Today

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

Hello,

I have made an Android app in Delphi which sends Sms to some phone numbers.

It works well on my phone but at one of my customer (who has Android 7 on his phone ) it works like this:
- it sends about 10-15 SMS-es without error
- then "Android error: java.lang.UnsupportedOperationException: Sms is not supported" pops up

What can cause the problem at customer's site?
Thank you very much for your help.
0
How to Fix compress file I used ZLib  in Delphi 10.2
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
Hello guys

I have this link :
http://apps.widenet.com.br/busca-cep/api/cep/09780-470.xml
and it returns me this xml in my browse:

<cep>
<status>1</status>
<code>09780-470</code>
<state>SP</state>
<city>São Bernardo do Campo</city>
<district>Nova Petrópolis</district>
<address>Rua Dom Bernardo José Bueno Miele (Jd Palermo)</address>
</cep>

Open in new window


I am trying to get it in my delphi code, but I am having problem with it, this is my function:

function RetornoHttpGet(sEndereco: String): String;
  var
    s,str: string;
    IndIni: integer;
    IndFim: integer;
    acesso: TIdHTTP;
begin


  acesso := TIdHTTP.Create(nil);
  acesso.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(acesso);
  acesso.Request.Accept := 'text/html, */*';
  acesso.Request.UserAgent := 'Mozilla/3.0 (compatible; IndyLibrary)';
  acesso.Request.ContentType := 'application/x-www-form-urlencoded';
  acesso.HandleRedirects := True;
  try
    s := acesso.Get(sEndereco);
    freeandnil(acesso);
    Result := s
  except
    Result := '';
  end;

end;

Open in new window


could you help me on this?
I got this error: HTTP/1.1 403 Forbidden

Thanks
Alex
0
I have TadvNavBar and pagecontrol1, in TAdvNavBar1 i have 3 panels ( AdvNavBarPanel1, AdvNavBarPanel2, AdvNavBarPanel3) and in page control there are 3 tab (tabsheet1, tabsheet2 , tabsheet3), is it possible when i click AdvNavbarPanel1 = tabsheet1 active, and so on with Advnavbarpanel2 and Advnavbarpanel3..

this is my sintax but its get error:

procedure TForm1.AdvNavBar1Click(Sender: TObject);
begin
pagecontrol1.ActivePageIndex:=Tadvnavbar(sender).Panels
end;

anyone can help?
0
Any time that I click on the Factoring option on the main menu in a C++ builder project whilst in the code editor, the drop-down menu shows No Refactorings Available ? This is the same in RAD studio 10.2 C++ builder.
Is there a video tutorial showing how to use the Refactoring functionality or is it possible that it needs to be enabled somewhere ?
The written help on the subject just doesn't work on my PC.
0
Hello, Guys

I need create a app with Delphi MDI but my problem is how create MDI Form with screen login.

when I create a form login and call form2 "app" I received erro no can use MDI form No MDI forms are currently active
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
My Application uses FdMemTable and load a file called users.xml. every thing is nice until I the application is used by local network.
Several users try to open the same file at the same time! An exception rises!
I found a function that might help me but "createFile" is  not recognized also GENERIC_READ or GENERIC_WRITE  by the compiler. Please Help!  

function TDataContainer.IsFileInUse(fName : string) : boolean;
var //fNAME is the adress of the file to check if is in use
HFileRes : Thandle;
begin
 Result := false;
 if not FileExists(fName) then exit;
 HFileRes :=createfile(pchar(fName),GENERIC_READ or GENERIC_WRITE,0, nil, OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
 Result := (HFileRes = INVALID_HANDLE_VALUE) ;
end;
0
I have generated  .type library from some .dll which com dll.

//procedure TMDF4Reader.GetData(bTime: Integer; lFirstIndex: Integer; lLastIndex: Integer;
                              out pBuffer: OleVariant; out nValuesRead: Integer);
begin
  DefaultInterface.GetData(bTime, lFirstIndex, lLastIndex, pBuffer, nValuesRead);
end;
this function from .tlb file.

I want to call this function but this function does not accept olevarient.
I tried following way
var
vData : olevarient;


  vData := VarArrayCreate([0,0], varDispatch); // A Variant array

  boun.cElements := 1;
  boun.lLbound := 0;
  SafeArray :=  SafeArrayCreate(VT_DISPATCH, 1, @bounds);
if SafeArray <> nil then
begin

    TVarData(vData).VType := (VT_ARRAY  or VT_VARIANT or VT_DISPATCH);
    TVarData(vData).VArray  := PVarArray(SafeArray);
end;
     MDF4.GetData(1, 1, 10, &vData, &n); // Get the data form the time signal


please help me on this i stuck
0
Would like application loading TGauge to look like Windows 7
0
Can someone help me with a sample for drag and drop items between two livegrids (or stringgrid, or listboxes ...) in Fremonkey ?

I found a lot example on how to do it in Delphi Vcl but none in Firemonkey.

Thank you
Mac
0
Hello guys,

I need send all data of Excel from database mysql. And I do this with Delphi Berlim.

I create a procedure for do that.

procedure TCadastroDeFornecedor.PegaExcel_e_importa(Arquivo: string);
var
  planilha, sheet: OleVariant;
  linha, coluna: Integer;
begin
  //Crio o objeto que gerencia o arquivo excel
     planilha:= CreateOleObject('Excel.Application');

     //Abro o arquivo
     planilha.WorkBooks.open(Arquivo);

     //Pego a primeira planilha do arquivo
     sheet:= planilha.WorkSheets[1];


     //Aqui pego o texto de uma das células
     linha:= 0;
     coluna:= 0;
     ShowMessage(sheet.cells[linha, coluna].Text);


     //Fecho a planilha
     planilha.WorkBooks.Close;

end;

Open in new window


but I received error:  OLE error 800a03ec
0
Hi,

I am writing an ActiveX control that is a compound control based on ActiveForm. I would like to hide the "Height" property from the object inspector and during runtime as the height will be set by the control itself based on user actions. Is there any way of doing that? Even programatically setting the height in the CreateForm event or Initialize event doesn't seem to override the height set in the objetc inspector.
0
Hello guys

I have a form that is in the midle of my screen. There is a button on it and I'd like to move the mouse on over it.

how could I do that? I tried some code and I haven't had sucess so far.

thanks
alex
0
I would like to know how to compute the x-intercepts of a cubic graph based in a given equation. If there is a formula that does this, then i would like to know this formula, if not then i would like to know the steps required to compute said values.
0
Hello,

My customer wants a software which recognizes registration plate number of the cars and store them in database.
I use Delphi Seattle.

How can I do that?

Thank you very much.
0
Please excuse me if this is a trivial question - but I looked around and could not find the answer.

  TFileData = class
    private
    PositionInThePaths: Integer;
    function GetThePath: string;
    public
    FileName: string;
    FileSize: Int64;
    property ThePath: string read GetThePath;
    end;

  TDirectoryData = class
    ThePaths: TStringList;
    FileDetails: TObjectList;  //  TFileData instances
    end;

Open in new window


I have two classes. In order to save memory, I store the paths in ThePaths. I store the instances of TFileData in FileDetails. The file data should get at this data using PositionInThePaths. The whole thing is readonly with no updating.

How do I program the function GetThePath. Obviously, it is easy enough to do without using property.
0
how to run tidtcpclient inside queued thread ? the client will beruns for a while and needed to handle somw gui when receive commands

and complete example on using queue correctly with tidtcpclient ?
0
hi,

is it possible
launch delphi desktop app from browser

thank you, H
0
Hello guys,

How do you set the datasource on TcxComboBox of (DevExpress).
0
Hi Team, I am trying to open "Tstoredproc" component - Parameter property by clicking on "...". Once I did this activity its(Delphi) getting hanged.
I just want to define one new parameter in to that component.

Please suggest, What Can i do.
0
Hello guys,

I need show enable only button "Delete" on DBNavigator.

I use Delphi Berlim and I tried this way:

dbnvgr1.VisibleButtons := [nbDelete];

but not done!
0
Hello guys,

I have a procedure and I need get part of string.

procedure TEMPRESA.btn1Click(Sender: TObject);
var
  ArquivoOrigem: TFileStream;
  ConteudoBase64: TStringStream;
  Arquivo64EmString: String;
  MyFilesExtension:string;
  CaminhoPasta:string;
  Dia:string;
  Mes:string;
  Ano:string;
  Hora:string;
  Minuto:string;
  segundo:string;
  NomeLiteralImagem:string;

begin

     Dia        := FormatDateTime('dd', Date );
     Mes        := FormatDateTime('mm', Date );
     Ano        := FormatDateTime('yyyy', Date );

     Hora       := FormatDateTime('hh',now);
     Minuto     := FormatDateTime('nn',now);
     segundo    := FormatDateTime('ss',now);



  if Length(EdtOrigem.Text) > 0 then
  begin


    CaminhoPasta := 'C:\FlexByouERP\Anexos\'+Dia+Mes+Ano+Hora+Minuto+segundo;

Open in new window



In variable CaminhoPasta  I need get all after  'C:\FlexByouERP\Anexos\'

how do that?
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.