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

Ignore the Tsk, tsk.

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

The results. All seems to be working. The TDictionary.TryAdd missing was solved with two lines of code.

> 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.

Yeah I read about it. Thanks for the response.

Don't know, hence the asking. Thanks for the response.

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

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.

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.

Hello, Has anyone converted this unit to work on 64 bit and 32 bit? Thanks, Mark unit uDGVMUtils; interface (******************************************************************************* uDGVMUtils -- is an attempt to create one of the best virtual machine detector methods, feel free to contribute in any way you wish. Version 1.1, 2010-01-15 Copyright© you are free to use it for comercial, private or both purposes Contributors: Dorin Duminica Chee Meng *******************************************************************************) type TVMWareVersion = ( vvExpress = 1, vvESX, vvGSX, vvWorkstation, vvUnknown, vvNative); const VMWARE_VERSION_STRINGS: array [TVMWareVersion] of string = ( 'Express', 'ESX', 'GSX', 'Workstation', 'Unknown', 'Native'); type TVirtualMachineType = ( vmNative, vmVMWare, vmWine, vmVirtualPC, vmVirtualBox); const VIRTUALMACHINE_STRINGS: array[TVirtualMachineType] of string = ( 'Native', 'VMWare', 'Wine', 'Virtual PC', 'Virtual Box'); function IsRunningVMWare(var AVMWareVersion: TVMWareVersion): Boolean; overload; function IsRunningVMWare: Boolean; overload; function IsRunningWine(var AWineVersion: string): Boolean; overload; function IsRunningWine: Boolean; overload; function IsRunningVirtualPC: Boolean; function IsRunningVBox: Boolean; function IsRunningVM(var AVMVersion: string): Boolean; overload; function IsRunningVM: Boolean; overload; implementation uses SysUtils,Windows,Vcl.Dialogs; function IsRunningVMWare(var AVMWareVersion: TVMWareVersion): Boolean; const CVMWARE_FLAG = $564D5868; var LFlag: Cardinal; LVersion: Cardinal; begin LFlag := 0; try asm push eax push ebx push ecx push edx mov eax, 'VMXh' mov ecx, 0Ah mov dx, 'VX' in eax, dx mov LFlag, ebx mov LVersion, ecx pop edx pop ecx pop ebx pop eax end; except // uncomment next two lines if you wish to see exception // on E: Exception do // ShowMessage(E.message); end; // trye if LFlag = CVMWARE_FLAG then begin Result := True; case LVersion of 1: AVMWareVersion := vvExpress; 2: AVMWareVersion := vvESX; 3: AVMWareVersion := vvGSX; 4: AVMWareVersion := vvWorkstation; else AVMWareVersion := vvUnknown; end end else begin Result := False; AVMWareVersion := vvNative; end; // if LFlag = CVMWARE_FLAG then begin end; function IsRunningVMWare: Boolean; var LVMWareVersion: TVMWareVersion; begin Result := IsRunningVMWare(LVMWareVersion); end; function IsRunningWine(var AWineVersion: string): Boolean; type TWineGetVersion = function: PAnsiChar;{$IFDEF Win32}stdcall;{$ENDIF} TWineNTToUnixFileName = procedure (P1: Pointer; P2: Pointer);{$IFDEF Win32}stdcall;{$ENDIF} var LHandle: THandle; LWineGetVersion: TWineGetVersion; LWineNTToUnixFileName: TWineNTToUnixFileName; begin Result := False; AWineVersion := 'Unknown'; LHandle := LoadLibrary('ntdll.dll'); if LHandle > 32 then begin LWineGetVersion := GetProcAddress(LHandle, 'wine_get_version'); LWineNTToUnixFileName := GetProcAddress(LHandle, 'wine_nt_to_unix_file_name'); if Assigned(LWineGetVersion) or Assigned(LWineNTToUnixFileName) then begin Result := True; if Assigned(LWineGetVersion) then AWineVersion := ANSIString(LWineGetVersion); // AWineVersion := StrPas(LWineGetVersion); end; // if Assigned(LWineGetVersion) or ... FreeLibrary(LHandle); end; // if LHandle > 32 then begin end; function IsRunningWine: Boolean; var LWineVersion: string; begin Result := IsRunningWine(LWineVersion); end; function IsRunningVirtualPC: Boolean; asm push ebp; mov ebp, esp; mov ecx, offset @exception_handler; push ebx; push ecx; push dword ptr fs:[0]; mov dword ptr fs:[0], esp; mov ebx, 0; // Flag mov eax, 1; // VPC function number // call VPC db $0F, $3F, $07, $0B mov eax, dword ptr ss:[esp]; mov dword ptr fs:[0], eax; add esp, 8; test ebx, ebx; setz al; lea esp, dword ptr ss:[ebp-4]; mov ebx, dword ptr ss:[esp]; mov ebp, dword ptr ss:[esp+4]; add esp, 8; jmp @ret1; @exception_handler: mov ecx, [esp+0Ch]; mov dword ptr [ecx+0A4h], -1; // EBX = -1 ->; not running, ebx = 0 -> running add dword ptr [ecx+0B8h], 4; // ->; skip past the call to VPC xor eax, eax; // exception is handled @ret1: end; function IsRunningVBox: Boolean; function Test1: Boolean; var LHandle: Cardinal; begin Result := False; try LHandle := LoadLibrary('VBoxHook.dll'); Result := (LHandle <> 0); if Result then FreeLibrary(LHandle); except end; // trye end; // function Test1: Boolean; function Test2: Boolean; var LHandle: Cardinal; begin Result := False; try LHandle := CreateFile( '\\\\.\\\VBoxMiniRdrDN', GENERIC_READ, FILE_SHARE_READ, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); Result := (LHandle <> INVALID_HANDLE_VALUE); if Result then CloseHandle(LHandle); except end; // trye end; // function Test2: Boolean; begin Result := Test1 or Test2; end; function IsRunningVM(var AVMVersion: string): Boolean; begin AVMVersion := VIRTUALMACHINE_STRINGS[vmNative]; Result := True; if IsRunningWine then AVMVersion := VIRTUALMACHINE_STRINGS[vmWine] else if IsRunningVMWare then AVMVersion := VIRTUALMACHINE_STRINGS[vmVMWare] else if IsRunningVirtualPC then AVMVersion := VIRTUALMACHINE_STRINGS[vmWine] else if IsRunningVBox then AVMVersion := VIRTUALMACHINE_STRINGS[vmVirtualBox] else begin AVMVersion := VIRTUALMACHINE_STRINGS[vmNative]; Result := False; end; end; function IsRunningVM: Boolean; var LVMVersion: string; begin Result := IsRunningVM(LVMVersion); end; end.

Thanks

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.

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?

#1 You need to get a grip. #2 I insinuated nothing. Your "drug dealer" rant springs from your own mind. #3 I see you edited the original post to say you are not affiliated with the product. #4 I never said anything about free. Where you jumped to ""EVERYTHING" must be free..." is mind boggling. #5 You need to get a grip. @Lars That said - $299 for 8 licenses with source code is not over the top for what appears to be a capable piece of code. I thought the same but the page said "includes source code repository access" and while I understand all the words the phrase gives me pause. "Source code included" is the standard phrase, concise and non ambiguous. Good luck.

Source code for what? What you are selling?

Hello, I was VERY interested until I read "(no source code)" and "(includes source code repository access)". Not sure what the later means. Never purchase components without source code. My2c. Mark

Hello, I have a customer when opening a form with a TWSocket on it gets the following error: Error reading PrimaryTCP.ReqVerLow: Not a Winsocket error (#87 in SetReqVerLow: WinSock version can't be changed now). I have no idea the cause. Any ideas? Thanks, Mark

I concur and it is done. Thanks for your help.

OK, here is how. This program was started 13 years ago. Still going strong. 😉 Using the current version of ICS. I have 40+ old/still using forms/DMs with TWSocket on them, created years ago. All these DFMs had 1 the for the low and high property. I did not change/set/alter the ReqVerHigh or ReqVerLow properties. No, problem all works and has been for years. In the previous two months an THttpCli was added and it is called/loaded/used first in the program. It is dynamically created and the default for the CtrlSocket(TWSocket) is indeed 2 as you stated. Now, the program starts, Winsock 2 is used by the THttpCli, one of the old DFMs is used/loaded and kaboom. > ReqVerHigh or ReqVerLow would only be saved in the DFM if you changed them from the default of 2, ReqVerHigh = 1 and ReqVerLow = 1 was in all the DFMs that had a TWSocket. I grepped and replaced them all with 2 and problem solved. Perhaps I should remove them all and let the current version default value apply.

OK I found the error. We added some code, earlier in program execution, nothing to do with the TWSocket generating the error, using THttpCli. It is initialized first and CtrlSocket.ReqVerLow and CtrlSocket.ReqVerHigh are indeed set to 2. Now creating the TWSocket port, when the form opens using 1, as was streamed with the form, causes the crash. So we change all the TWSockets to 2 or set the THttpCli to 1.

Thanks for the response. > ReqVerLow after TWSocket has loaded, and why would you want to? I would not want to and if this is the ReqVerHigh and ReqVerLow in the object inspector they are both set to 1 and I did not set them.