Posts by Wellington Telles Cunha • 379 points
25 posts
-
0
votes3
answers2538
viewsA: Mysql query and case distinguish
For the sake of performance put BINARY after the same, example: SELECT * FROM temp1 WHERE col1 = BINARY "ABC" AND col2 = "DEF" ; For your code: $consulta = mysql_query("SELECT id,password,tipo_ut…
-
0
votes3
answers109
viewsA: Simple Arduino program
I believe it is the exchange of WHILE for WHILE, any problem let me know: int led1 = 13; int botao1 = 7; int botao2 = 2; int estadobotao1 = 0; int estadobotao2 = 0; void setup() { pinMode(led1,…
-
-2
votes2
answers727
viewsA: Reduce Firebird memory consumption when closing Dataset
Have a routine to reduce the memory you placed inside a timer or after your process: procedure TForm1.Timer1Timer(Sender: TObject); begin if (((GetTickCount - LastTick) / 1000) > 120) or…
-
2
votes2
answers8573
viewsA: Working day script
I would like to add about the holidays: function dias_feriados($ano = null) { if ($ano === null) { $ano = intval(date('Y')); } $pascoa = easter_date($ano); // Limite de 1970 ou após 2037 da…
phpanswered Wellington Telles Cunha 379 -
1
votes1
answer81
viewsA: Release Field after date
First you will need to take the value that is being changed or be the current date ai depends on you, when the form is loaded (put this in the header : $(document).ready(function(){…
-
1
votes1
answer188
viewsQ: End Date after Start Date Input Form
I am making a system and tried to use javascript to ensure that the user does not give the SUBMIT with the final date before the initial date. Almost everything worked out, but in DATE_END input it…
-
0
votes1
answer340
viewsA: Insertion Sort in pascal
The solution was given in the English version: https://stackoverflow.com/questions/28135957/how-to-use-insertion-sort-in-an-array-with-pascal Procedure InsertionSort(numbers : Array of Integer; size…
-
1
votes1
answer135
viewsA: I can’t install Zeos on Delphi 7
Go to the menu: Tools > Enviroment Options > Library > Library path Click on the ... (3 points) Will open the Directories screen Click on ... (3 points) Add the location where the file is.…
delphi-7answered Wellington Telles Cunha 379 -
0
votes1
answer34
viewsQ: PHP One Table Calls Another Dynamic Table
I am needing that when the user selects a combo item that the next combo is loaded with the data related to the first. I already did that: <?php session_start(); ?> <!DOCTYPE HTML>…
phpasked Wellington Telles Cunha 379 -
0
votes2
answers54
viewsA: Select only if the ID is in 2 tables
I thought of a different way: SELECT a.cod, b.cod FROM inscricao1 as a, inscricao2 as b WHERE a.cod = b.cod; So simple using alias.
-
0
votes3
answers963
viewsA: store the value of a query in a php variable
Try as an example: $connection = conectadb(); $sql = "SELECT SUM(quantidade) from pedidos"; $result = $connection->query($sql); $row = $result->fetch_assoc(); $sum = $row->value_sum; And…
-
0
votes1
answer55
viewsA: Communication with the COM3 port
Have you tried using Comport? https://pt.osdn.net/projects/sfnet_comport/downloads/comport/4.11/comport411f.zip/ It is a very good component and will avoid a lot of problems.…
delphi-7answered Wellington Telles Cunha 379 -
2
votes3
answers4536
viewsA: Incorrect accentuation when generating PDF
Another way and uft8_decode: $pdf->Text (50,50,utf8_decode('Acentuação')); There are FPDF modifications like the TFPDF that already comes in UTF8:…
-
1
votes0
answers108
viewsQ: Editor for FPDF
I’m looking for an FPDF editor. Does anyone know any? Or some link that can take my page in PHP and turn into FPDF. I need to create more than 20 PHP reports for PDF. I know the question is generic,…
-
0
votes1
answer299
viewsQ: Chartsjs export PNG automatically
I need to export a chart co Chartjs (version 2.7) to PNG that I got on: https://jsfiddle.net/uabczmxa/ The only problem I need to push the button. Would anyone know what to modify in javascript? At…
-
1
votes1
answer57
viewsA: Doubt in an equation in Pascal
This is the Fourier series for cosine. For exponent use X high to Y: exp(y*ln(x)) along those lines: coss := (coss + ((expoente(x, (j*2)))/(fatorial(j*2)))) * switch; Replace with: coss := coss +…
pascalanswered Wellington Telles Cunha 379 -
1
votes2
answers1306
viewsA: How to use exponent in Pascal?
x to y is equal to Exp(y*ln(x)) Example: Program Exemplo; var a, b : Integer; begin a := 5; b := 3; writeln (exp(b*ln(a)):10:0); readln; end.
-
1
votes1
answer142
viewsA: GS1 tags Code128 subset C
When reading barcode the ideal is to filter that can be both in the scanner and in your program. The normal is to do in the program, because in addition to some scanner models do not filter, in the…
-
1
votes1
answer43
viewsA: Best Language/Library for manipulating impressions
It is only up to you to choose the best option. I particularly like Delphi by the ready parts and have less than programming. The way forward is to migrate the database. My advice is to do in…
-
1
votes3
answers667
viewsQ: Create objects in Runtime faster
I’m developing a Unit for a biometric reader. When giving CREATE, Unit creates several Runtime objects within Tabsheet. Everything is running perfectly, but when loading the objects you can see…
-
4
votes1
answer853
viewsQ: How to find the function name of a DLL?
I’ve used the DLL Export, Dependency Walker, dumpbin, PE Explorer and the result for several Dlls I need to use is always the same with two functions: CLRRP and GETRP.... parameter-less. I know the…
-
2
votes1
answer1493
viewsA: How to fade some components in the background to highlight a Tpanel on them?
Hello, after the image you sent I broke my head. The simplest solution I could find was to use the Jedi Project that adds many components. The idea was to put a panel with alClient transparent and…
delphianswered Wellington Telles Cunha 379 -
1
votes2
answers788
viewsA: How to create a dynamic table in Word via Delphi?
I made for exporting a program, see if help: procedure TfrmPrincipal.Word1Click(Sender: TObject); var WordApp, NewDoc, WordTable : OleVariant; i : Integer; s : string; begin if RichEdit1.Lines.Count…
-
5
votes2
answers17150
viewsA: How to create an Anonymous Thread in Delphi
procedure TForm1.StartThread(const Id, LogId: Integer); begin TThread.CreateAnonymousThread( procedure var I: Integer; begin for I := 0 to 100 do begin Sleep(Random(100)); LogMsg(Format('Thread: %d;…
-
0
votes3
answers2481
viewsA: Find a component by name
Look at this: procedure TForm13.Button1Click(Sender: TObject); Var tabSheet: TTabSheet; AComponent: TComponent; aIndex: Integer; begin aIndex:=-1; AComponent := FindComponent('TabSheet1'); if…