Posts by Jefferson Rudolf • 1,139 points
67 posts
-
1
votes3
answers858
viewsA: Windows service does not start automatically
I see you already use a command to install, but try to use the following command by running a minimized . bat. SC CREATE NOME_DO_SERVICO binpath= "NOME_DO_EXECUTAVEL.exe" start= auto displayname=…
-
1
votes2
answers456
viewsQ: Fill text-area field while input information is entered
I have a text-area and a input, wanted that when typing some information in the input it already fills in the text-area. I tried the event onchange, but from what I’ve noticed it’s only fired when…
-
0
votes1
answer281
viewsQ: How to indent in JSON format
I am layman still in language, I wanted JSON to be indented. I have the text on one line: [{"titulo":"teste","detalhes":"teste"}] I wanted it this way: [ { "titulo": "teste", "detalhes": "teste1" }…
-
0
votes1
answer515
viewsA: Fill Stringgrid row with variable of N characters
I put something together for you to come up with, I hope it helps. const Letras = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; Numeros = '123456789'; var oSLDados, oSLGrid: TStringList; iContValor, iContSort,…
delphi-7answered Jefferson Rudolf 1,139 -
1
votes1
answer60
viewsA: Change Property in Run Time
Rectangle1.Align := TAlignLayout.Client;
-
0
votes2
answers555
viewsA: Stringgrid - take strings with separators and turn into separate cells
I set up the routine to see if it helps. var oSLDados : TStringList; sTexto : String; iCont : Integer; begin sTexto := 't;e;xxxx;t;ooo'; oSLDados := TStringList.Create; try oSLDados.Delimiter :=…
delphi-7answered Jefferson Rudolf 1,139 -
0
votes1
answer47
viewsQ: How to reopen an order that has been canceled
I wanted to know how to undo the cancellation of an order on the Magento 1.9 API, if anyone has an idea, I’d appreciate your help.
magentoasked Jefferson Rudolf 1,139 -
0
votes0
answers242
viewsQ: Multiple instances of the same windows service
I have a service running on Windows, but the client needs the same service to work on the same server to make different routines. I came across the following problem, if I install the same service…
-
2
votes2
answers1238
viewsA: Problems with virtual keyboard typing Firemonkey Android
I had the same problem as you using the Delphi XE7, I went through several tests and realized that none of the KeyBoardType did not solve, Alphabet uses the suggestions of the virtual keyboard…
-
0
votes1
answer243
viewsA: Destroy Tlist Memory
Try it like this while Lista.Count <> 0 do begin TesteVO := Lista[0]; Lista.Delete[0]; FreeAndNil(TesteVO) end; FreeAndNil(Lista);
-
3
votes2
answers142
viewsA: Delphi does not write to txt file
Before changing the file check whether or not it exists right after the AssignFile(), doing as follows: if FileExists('d:\\tabuada.txt') then Append(arq) else Rewrite(arq); In place qr.FieldValues…
delphianswered Jefferson Rudolf 1,139 -
2
votes2
answers757
viewsA: Access the child components of a Tobject
You need to access the Father of the component first accompanied by the components inside it to have access. I made an example to have access to TLabel. I hope it helps. var oLabel: TObject begin…
-
1
votes1
answer715
viewsA: TXT file on android
I don’t know why you create the file on Android, I usually create the file in folder . ini and when I do the Deploy I’ll send the file along. I hope I’ve helped. uses System.IOUtils {$IF DEFINED…
-
3
votes3
answers1190
viewsA: Problems with Midaslib
In the main class, declare in the MidasLib will no longer alert about dll.
-
1
votes0
answers459
viewsQ: How to turn off Android virtual keyboard suggestions
Needed to disable the suggestions that the Android virtual keyboard searches. Does anyone have any idea how to do? Usage Delphi XE7
-
1
votes0
answers402
viewsQ: How to stop the Windows service when running the installer and start right after installation via Inno Setup
I’m using the Inno Setup to create an installer, this installer contains an application and windows service, I’ve already set up on Inno Setup to replace existing files while installing again. But…
-
0
votes2
answers2211
viewsA: How to make INNER JOIN between tables on android Sqlite?
SELECT t1.columns, t2.columns //campos que você quer visualizar FROM table1 t1 INNER JOIN table2 t2 on (t1.column = t2.column) //você deve comparar com as chaves das tabelas Smart to have helped.…
-
2
votes1
answer259
viewsA: Export Date Type to openoffice/libreoffice Delphi
Try to do it this way: if ((DateToStr(Q_Assoc.Fields[i].Value) <> Null) and (DateToStr(Q_Assoc.Fields[i].Value) <> '')) then…
delphianswered Jefferson Rudolf 1,139 -
1
votes1
answer228
viewsA: Check mapped network unit size
Try it like this var FreeAvailable,TotalSpace,TotalFree : Int64; begin GetDiskFreeSpaceEx('z:',FreeAvailable,TotalSpace,@TotalFree); ShowMessage('Espaço livre: '+FormatFloat('#,0',TotalFree)); end;…
-
5
votes2
answers2948
viewsQ: How to check if a windows service is installed, if you are starting the service via batch file
I need to run a service for some processes, but first I needed to check if the service is installed. The commands I use to install and uninstall are as follows:: %DIRServico%\SERVICO.EXE /INSTALL…
-
2
votes1
answer641
viewsA: Tbytedynarray for String Delphi 7
function Converter(P: TByteDynArray): string; begin SetLength(Result, Length(P)); System.Move(P[0], Result[1], Length(P)); end; Try to do so: Source:…
-
1
votes1
answer565
viewsA: How do I run the Menuiten.Click event in an if? Delphi loop
If I were you, I would control with a private variable feeding in the main onCreate, so it would open Login and in the Login onCreate feed the variable with False, in the main onShow I check if it…
-
0
votes2
answers79
viewsA: Concatenate Matrix x Vectors
See if it helps you var oSL1: TStringList; oSL2: TStringList; iCont1,iCont2: Integer; sValor: String; begin oSL1 := TStringList.Create; oSL2 := TStringList.Create; try oSL1.Add('1111,2222');…
delphianswered Jefferson Rudolf 1,139 -
2
votes1
answer1663
viewsA: Checklist Box Delphi how to get the Item String checked
var iCont: Integer; sValor: string; begin for iCont := 0 to CheckListBox1.Count-1 do begin if CheckListBox1.Checked[iCont] then sValor := CheckListBox1.Items[iCont].Trim; end; end; I hope I’ve…
delphianswered Jefferson Rudolf 1,139 -
4
votes1
answer360
viewsQ: How to check if the application shortcut exists on the Desktop, if there is no create
I am using Delphi XE7, wanted to know how to check if my application already contains a shortcut on the Desktop, if in case there is no create a shortcut. From what I researched, I would have to…
delphiasked Jefferson Rudolf 1,139 -
1
votes3
answers2828
viewsA: How to change the color of a Text from a Listview?
I’ll tell you how to fix it, I had the same problem with the color, the FMX works with TAlphaColor, with this he does not understand if we put a color for example: clRed it has the predefined…
-
0
votes2
answers567
viewsA: Query SQL Moodle
I have no knowledge in Moodle, but I put together something on top of what you went through and the examples in Moodle, you have to see the table keys to mount SQL. SELECT rs.nome_aluno, c.curso,…
-
0
votes1
answer656
viewsA: Delphi - Datasnap authentication via AJAX
Try this way in class ServerMethodsUnit1 which is created together when you create the Datasnap REST add in class uses Web.HTTPApp. In the function that is requested when you pass the user and…
-
2
votes4
answers2460
viewsA: How to check for changes in a Clientdataset
I found what I was looking for, after some research, I’ll explain how to use. There is a variable of the component itself TClientDataSet calling for Logchanges a Boleana variable that comes as True…
delphianswered Jefferson Rudolf 1,139 -
1
votes4
answers2460
viewsQ: How to check for changes in a Clientdataset
Use Delphi XE7, I need to check if you had insertion/editing in ClientDataSet before closing a certain screen, but I may close the screen and it is no longer in the insertion/editing state and still…
delphiasked Jefferson Rudolf 1,139 -
2
votes2
answers1031
viewsQ: How to count down in a Messagebox
Use Delphi XE7, needed to put a countdown on a MessageBox, on the button Não. For example a 10 sec count next to the button caption Não (10) and so it decreases Não (9). My alternative is to create…
-
0
votes1
answer105
viewsA: Is it feasible to place an Idhttpserver in a Mobile App to receive instant messages from a remote server?
Why don’t you use the technology Datasnap for client/server communication, you can make transactions via JSON which is much faster, but there are some particularities as to the technology, it…
-
2
votes1
answer1418
viewsA: Application developed in Delphi XE8 closes on execution
It may be for the Android version, you need to download the Hotfix that Embarcadero released, so the apps will work on Android’s higher than 5.0. http://cc.embarcadero.com/item/30110 enter with user…
-
2
votes2
answers1858
viewsA: Firedac multithread (Simultaneous connections - REST server) DELPHI
For you to work with sessions on Datasnap, you have to create your project from the DataSnap Server, for technology REST by default works with LifeCycle Invocation, every run of a server method an…
-
1
votes1
answer1537
viewsA: How to change the Content-Type Response in Datasnap REST
I was able to solve the following way, who uses WebBroker REST for a WebService from the project DataSnap REST, there is a class IdCustomHTTPServer, in that class contains a function SetHeaders,…
-
1
votes1
answer1537
viewsQ: How to change the Content-Type Response in Datasnap REST
I have a project made from the WebBroker REST, running as a service, I need to change the Cotent-Type for 'application/json' and by default the WebBroker REST brings me as a result of Content-Type…
-
2
votes3
answers3550
viewsQ: How to make your Android virtual keyboard visible/invisible while Tedit is in focus
I use Delphi XE7, wanted to know how to treat this issue, Seto the focus on TEdit, it opens the virtual keyboard Android, Press the back it closes the keyboard and the focus stays on the TEdit, but…
-
4
votes1
answer2976
viewsQ: How to get request header by passing Authorization Bearer using Datasnap
I’m using Delphi XE7, have a WebService REST made from the DataSnap REST, I need to get the bearer-token past Header by the customer, only that the DataSnap REST by default it executes as Basic.…
-
1
votes1
answer556
viewsA: How to Change the Port on Datasnap Server by INI File
I decided as follows: When you create the Datasnap Server project, one of the classes responsible for connection and communication is the ServerContainerUnit, in this class contains a connection…
delphianswered Jefferson Rudolf 1,139 -
1
votes1
answer556
viewsQ: How to Change the Port on Datasnap Server by INI File
I’m trying to set up a file INI to be open to the customer, to be able to connect to the service by the port determined by the same. With no problems, change in design mode, compile the executed…
delphiasked Jefferson Rudolf 1,139 -
2
votes1
answer765
viewsA: Modify URL for REST requests
I managed to solve as follows, I created a project DataSnap Server, in class ServerContainerUnit that the project itself creates, has a component where it is in charge of the communication via Http,…
-
1
votes0
answers628
viewsQ: How to get back a POST sent by the Customer (Datasnap REST)
I have a Webservice Server REST developed by the IDE Embarcadero Delphi XE7, I need to take the return of POST customer’s. I created Webservice from the Datasnap REST Application, when creating the…
-
-1
votes1
answer469
viewsA: Listbox with JSON data - Delphi mobile
If you have the return of the data, I will put an example of how popular a Listbox, but I realized that it has several user data for example, it was not better to use Listview?... var i: Integer;…
-
1
votes2
answers645
viewsA: Passing a variable within a precedent
Try it like this procedure TForm1.Button1Click(Sender: TObject); var iCont,iContagem: Integer; begin iCont := StrToInt(Edit1.Text); for iContagem := 0 to iCont-1 do begin…
-
3
votes1
answer263
viewsA: UPDATE syntax error in Delphi (Mysql)
From what I could observe, just said specify the ID in Parambyname reserva.Close; reserva.SQL.Clear; reserva.SQL.Add('UPDATE USUARIOS SET'); reserva.SQL.Add('USER = :USERPR,');…
-
1
votes1
answer618
viewsA: Fill a listview with the properties of a class in Delphi
From what I can see, you go through all the states and stop at the last one, but since you don’t come around again to play Listview, so he fills Listview with the last one, because you don’t pass…
delphianswered Jefferson Rudolf 1,139 -
1
votes2
answers650
viewsQ: How to return Datasnap Server image and show in browser
I developed an application made in Web Service REST, where the data is consumed at each client request, everything works perfectly, I created the Web Service REST from the DataSnap REST Application,…
-
0
votes1
answer105
viewsA: How to add a value to DBF
I made an example of how I could do, follows below: Declare no uses Data.DB, Datasnap.Dbclient var oCDSDados: TClientDataSet; iPos: Integer; begin oCDSDados := TClientDataSet.Create(nil); try…
-
0
votes1
answer627
viewsA: How to show exceptions raised in Datasnap REST Server, in client?
Could do as follows, pass as parameter in the server function the type out, because it returns the value after the client makes the request. For example: Servidor: function grava(out psVariavel:…
delphianswered Jefferson Rudolf 1,139 -
4
votes1
answer763
viewsQ: How to return the converted image to Base64 in Postman
I have a Web Service REST Server, need to traffic a web service image to the client, when the client requests a particular image, the web service does the conversion to base64 and send it to the…