Mark-
-
Content Count
208 -
Joined
-
Last visited
-
Days Won
1
Posts posted by Mark-
-
-
Hello,
THttpCli version 8.62
Update: Thinking about it "blocking" is what the code says and what it does. I switched to CloseAsync and that seems to solve the issue. More testing will prove. Is there a better idea?
I have a THttpCli component on a TDataModule connected to a camera. When the user closes the main form, I call:
HttpCli1.Abort; HttpCli1.Close;
Abort returns and Close is called.
Close never returns because:
if MsgWaitForMultipleObjects(0, Pointer(nil)^, FALSE, 1000, QS_ALLINPUT) = WAIT_OBJECT_0 then MessagePump;
is called, and MessagePump calls:
Application.ProcessMessages;
Ideas?
Thanks,
Mark
-
Thanks for the help Angus.
To close this issue.
The issue was the time difference between the camera and the PC. The camera rejects the message if the time difference is greater than about 5 seconds. Solution is to read the time in the camera and adjust the transmitted time stamp. Reading the camera time does not require authentication.
If the message sent to the camera contains a certain namespace reference, the camera will switch to attempt a digest authentication after the first failed, ONVIF authentication. While ICS handled the "digest" authentication, flawlessly, the double process was not workable for the design goals.
Cheers,
Mark
-
Interesting, thanks.
More dissection planned.
-
Thanks for the response.
> The component is auto selecting httpAuthDigest
Yeah and when I select Digest, same 401 result.
> Not sure if the same Authorization: header can be used more than once for subsequent requests, never used Digest myself.
Ditto,
> You'll need to check Wireshark on the other application to find out where it finds realm, etc, or if it uses a different authentication mechanism.
Yeah, my searching found nothing. I suspect I need to check again.
-
Hello,
> use the THttpRest component
The TSslHTTPRest?
Altering the URL to remove the username and password made no difference.
I added an ICS logger and selected each of the ServerAuth options and all produced the same result. Other than causing a complete failure no change has altered the cycle.
Attached is the log file.
Cheers,
Mark
-
Hello,
Thanks for the response.
I had all kinds of logging enabled and I could not see the issue. Wireshark is a good tool for seeing outside the program.
> setting ServerAuth to httpAuthBasic
I get a 401 error.
I guess I will return to logging.
Mark
-
Hello,
Delphi 10.2.3, ICS 8.62
I am reading the settings from an Axis video camera. The payload is XML.
Example URI: root:admin@192.168.8.218:80/onvif/device_service
The issue, I form up the message, use PostAsync, the data comes back and all is good.
I view the process via Wireshark, I see the “Post” and the reply is “HTTP 1.1 401 Unauthorized” and the reply includes:
[truncated]Authorization: Digest username="root",realm="AXIS_WS_ACCC8EE4F05C",nonce="sgpPo3OzBQA=f77c1448ee4c9dfe2a268b430a4f4ee824f78950",uri="/onvif/device_service",response="909198f352f89203fe5701378e615379",qop=auth,nc=00000001,cnonc
Different values each time, same fields.
THttpCli sends the post again, including the above information, and the camera returns the data.
I have tried many things. Changing the “serverAuth”, no difference.
Another program, I view the stream and it does not have the same cycle.
I must be missing something. Ideas?
Thanks,
Mark
-
-
I added this comment.
I added a default folder property to the class.
Removed:
var hr := CreateCoreWebView2Environment(
Callback<HResult, ICoreWebView2Environment>.CreateAs<ICoreWebView2CreateCoreWebView2EnvironmentCompletedHandler>(
CreateEnvironmentCompleted));Added:
hr:=CreateCoreWebView2EnvironmentWithOptions('',PWideChar(FDefaultFolder),nil,
Callback<HResult,ICoreWebView2Environment>.
CreateAs<ICoreWebView2CreateCoreWebView2EnvironmentCompletedHandler>(CreateEnvironmentCompleted)); -
Hello,
Yes, I send SMS messages in one of my applications. A cell phone or modem that supports the AT command set is what I used. There is not an SMS protocol specification. If only sending messages most providers use the same commands. Receiving messages, clearing storage, etc., not all providers support those actions.
We tested with Nokia and Samsung phones. I know customers are using other MODEM brands with success.
Good luck,
Mark
-
36 minutes ago, aehimself said:Kind of a habit, I'm always using FreeAndNil. At least If Assigned(something) works properly 🙂
Ignore the Tsk, tsk.
-
The results.
All seems to be working.
The TDictionary.TryAdd missing was solved with two lines of code.
-
7 minutes ago, Rollo62 said:Not quite sure what you're doing right now, changing your code or TMS code, or what
> Can TEdgeBrowser be used in 10.2.3?
Changing the code in Vcl.Edge.
Thanks for the response.
-
Well so far, so good. [ Changing the code in Vcl.Edge. ]
I had to make changes to every location an inline var or const is used, a few dozen, not too must trouble.
Only real pain is when the same var name is used in a function, in different blocks of the function, and the type is different in each block.
Now, one line of code that uses TDictionary.TryAdd which does not exist in 10.2.
I have not used TDictionary so I need to see if I can change the line to get the same operation using existing TDictionary functions and/or a few more lines of code.
-
3 hours ago, Mohammed Nasman said:TMS released one with their FNC component, but not free.
Yeah I read about it.
Thanks for the response.
-
2 hours ago, Fr0sT.Brutal said:Why not? It's just a wrapper, no magic AFAIU
Don't know, hence the asking.
Thanks for the response.
-
Hello,
Can TEdgeBrowser be used in 10.2.3? I can download and install 10.4 in a VM, copy the component/files to 10.2.3 if it will work.
Ideas, other than to switch to 10.4?
Thanks.
Mark
-
Not sure where the problem is located. Changed the column type from TEXT to VARCHAR(4095) and now all the characters are fetched.
Anyone used the TEXT data type of MySQL with FireDAC (using ODBC) and a DBGrid?
When the type is TEXT is appears in the grid as {WIDEMEMO}. Perhaps a setting I am missing that limits the fetch size for WIDEMEMO.
-
Ralf, thanks for the response. I am using ODBC and updated the driver from 8.0.10 to 8.0.21, no joy.
I did find if I issue an SQL statement for a specific record all the data for the fields is returned.
-
Hello,
Delphi 10.2 connection to MySQL 8.0.18
The TFQuery fetching is controlled by a TDBGrid. The table has 5 records.
I have a TFDQuery accessing a table. For the most part no problems. Two table fields are “TEXT” and have about 400 characters per record.
The TFDQuery is not fetching or at least not allowing me to get all the characters. For example, one field is 432 characters and accessing the text with .filedValues or .fieldByName.asString or any of the “as” text only returns 308 characters. The break is not on anything weird, in this instance the break is between an “n” and “e”.
Looking over all the properties of TFDQuery and TDBGRid, everything seems fine and not limiting the fetch.
Ideas?
Thanks,
Mark
-
37 minutes ago, David Heffernan said:I routinely find design issues when I am writing documentation.
Same here plus, I can verify all the design and functionality goals are achieved.
In some cases I write the documentation before the code. Especially when the goal is stated in one line but contains many facets.
-
1 hour ago, davornik said:Code can be made compatible with 64-bit, i have posted probable solution here:
https://stackoverflow.com/a/61874765/3225668
NOTE: in FastcodeCPUID.pas there is an error with position of registers when returning value. Registers in code goes like Move...EBX...EDX...ECX... Proper way should be EBX...ECX...EDX...!
Thanks
-
13 minutes ago, PeterPanettone said:I think the importance of SVG for UI is underestimated. Using only pixel images for UI controls is the wrong way.
Our main product is very graphic intensive. The customers design and animate the graphics, in an editor we created, for their operators to use for controlling...anything that can be controlled.
I asked a few years ago if SVG was important and was told no. I am going to reopen the question.
- 1
-
55 minutes ago, PeterPanettone said:Did you test the project at all? Can you tell me your opinion about the project source?
I do not want to download and use the SVG code.
The project source looks good. No idea about the SVG definition.
The Pascal stuff is fine for testing.
Why the test? Do you have a reason for the code other than an experiment?
THttpCli.Close...
in ICS - Internet Component Suite
Posted
Thanks François