-
Content Count
217 -
Joined
-
Last visited
-
Days Won
5
Posts posted by haentschman
-
-
QuoteQuoteWhere / how to I put the TQuery? On the Form or in the DataModule
TQuery + TDatasource on TDataModule.
Never on the form!
...it is not an answer of your question?
QuoteI think I must be on the wrong forum or maybe the wrong planet., because none of the answers bear any resemblance to my question.
...that's why i'm out.
-
Quotebut "Like" can't be "parametrized".
I dont think so...
update Documents set SendTypeUSB = :GES where OriginalFileName like :PAT ... Qry := CreateQuery; try case SendType of sdtFolder: Qry.SQL.Text := GetSQLByName('SEAM_WRITE_SEND_FOLDER_STATE'); end; Qry.ParamByName('GES').AsInteger := Integer(State); case ValueType of vatFileName: begin Qry.SQL.Add(GetSQLByName('SEAM_WRITE_SEND_WHERE_FILENAME_LIKE')); Qry.ParamByName('PAT').AsString := '%' + ExtractFileName(Value); end;
...it is working.
QuoteWhere / how to I put the TQuery? On the Form or in the DataModule
TQuery + TDatasource on TDataModule.
Never on the form!
-
Hi...
key points:
1. DBGrid -> TDataSource -> TQuery
2. SQL in Query
Query.SQl.Text := 'select Bla from Bubb where Bla = :PAR' Query.ParamByName('PAR').AsString := 'Test'; Query.Open;
* if you can...dont use LIKE. The database indizies are not used.
* always work with parameters!
See: https://en.wikipedia.org/wiki/SQL_injection
...finish.
-
1
-
-
Hi...
Last week we all moved to a new server. With my new profile, among other things, the Delphi had to be reinstalled....
Except for the interface from Git to Mantis "Murtle" everything is working again.
Problem:
See picture 1.
A "Connect" via mantisconnect.php already brings this error. The config files are copied 1:1 from the old profile. The Mantis as such is
accessible! The Mantis is not on the server but on an unchanged NAS.Can someone do something with the message?
What else happened:
* Windows update to 20H2 is still pending. Done: without success!
* The tool is written for NET 2.0. I don't know if that was on it before... Now is from 4.5 on it.PS: Also with the old profile the same error comes since the change.
PS: The aunt is silent about the murtle in connection with the error.
PS: About the aunt I found information that may have to do with SSL3/TLS. system.io.ioexception unexpected file end
PS: Uninstalled everything, removed settings, rebooted, installed, settings in...same error!What it should look like: Image 2
Thanks for info...
Addendum:
...imho NET 2.0 is on it. Image 3.* Crosspost in the german DP https://www.delphipraxis.net/207490-tortoisegit-mantis-murtle.html
-
-
Hi...
QuoteI have recently upgraded from Delphi 4 to Delphi 10.4 - yes, a big leap indeed.
...wow.
Quoteso sadly now my knowledge has become obsolete.
...better.
Questions:
We know IBConsole and IBDatabase ...but which database you use? Firebird or Interbase?
Tools:
Admintool: https://dbeaver.io/
...better than console.
Tip:
Never use T???Table...only T???Query and SQL!
-
Free is enough. (for components) If you have your own objects in use and you check with Assign, then FreeAndNil is correct. Otherwise Free is also enough here.
-
Hi...
! The naming of the components with "...1" at the end seems like placing it on the form.
Better...
.... .... // ! not on the form IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil); try IdSMTP := TIdSMTP.Create(nil); try IdMessage := TIdMessage.Create(nil); try // .... .... ..... // finally IdSSLIOHandlerSocketOpenSSL.Free; end; finally IdSMTP.Free; end; finally IdMessage.Free; end; // ... end;
or
Placing on the form... and finish. I dont like it.
-
Hi...
QuoteIs this construct OK?
...No. It contains "with".
"with" is like 90s...
Why use many developers the "with"...old school? Everybody knows by now that there can be problems with this...TRect (example) or no resolution of variables during debugging.
-
2
-
-
[OT]
Imho is the reason the "with"...
With ist like 90's.
[/OT]
-
TExample = class private FIndex : Integer; public constructor Create; property Index: Integer read FIndex write FIndex; end; ... constructor TExample.Create; begin FIndex := 999; end;
...the same idea.
-
I would like to have it in german...
-
Hi...
The question is...why you want the imho old TSQL instead of FireDAC, UNIDAC, Zeos?
-
Hi...
Question to Andreas: We can expect it?...sometime.
Great Work...Thanks.
-
-
Hi...
Imho is the editor in the MSSQL studio a script...not a query. How about TFDScript instead of TFDQery?
http://docwiki.embarcadero.com/Libraries/Seattle/en/FireDAC.Comp.Script.TFDScript
' + quotename(name,'''') + ' also in scripts you can use parameters
-
-
QuoteWhat problem is that supposed to solve?
+1 ???
-
Hi...
QuoteUPDATE FICHADAS SET HASTA = ' + QuotedStr(FormatDateTime('dd-mm-yyyy HH:nn',FDMemTbCSV.FieldByName('Fecha').AsDateTime))
....please use every time SQL Parameters!
Qry.SQL.Text := 'select Blubb from Bla where Date = :BDA'; Qry.ParamByName('BDA').AsDateTime := Now;
See SQL Injection:
https://en.wikipedia.org/wiki/SQL_injection
https://de.wikipedia.org/wiki/SQL-Injection
Then you will see that the DateTime problems will disappear. (Field in DataBase = DateTime)
-
1
-
-
Hi...
the solution ist here... https://www.danielwolf.eu/blog/2015/1668-meine-vorstellung-einer-willkommens-seite
...slim and effective
-
7
-
-
QuoteIt is not hard to find reliable online storage.
...yes.
What if your house burns down? All data that cannot be restored, especially the Delphi projects, must be transferred to the data center outside the house. (Webspace/Webserver)
-
1
-
-
-
Hi...
i think ist confused.
Please show the code of your program...
Principle:
1: loop ( while not Database.Eof do ...from Query)
2: create Mail complete with sender, receiver (from database "FieldByName"), body (the same) ...
procedure Send(Sender: string; Receiver: string; Body: string);
3: send
Quoteallinonebutton.click
Sorry...never use a click procedure...bad design.
QuoteSMTP Component not ready
In the loop use .Open / .Close of the ICS component...imho.
-
QuoteSo, delete and start again
this is named: learning by doing.
Strange message from Seattle
in General Help
Posted
Hi...
...yes!
wuppdi Welcome Page