Jump to content

Paul TOTH

Members
  • Content Count

    9
  • Joined

  • Last visited

  • Days Won

    1

Paul TOTH last won the day on October 17 2022

Paul TOTH had the most liked content!

Community Reputation

2 Neutral

Technical Information

  • Delphi-Version
    Delphi 11 Alexandria

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. You can try http://app.serialgames.jp/sgd/alog/ the page is in japanese but the application in english direct download from http://app.serialgames.jp/sgd/alog/download/androidlogviewer_win_2_0_0.zip
  2. Paul TOTH

    Corean write in explorer popup menu

    it's look like an Ansi/Unicode issue...it that an old Delphi application before Delphi 2009 compiled with a recent version ? didn't see it's in explorer
  3. I guess you means if Assigned(Node.Parent) then begin myParentNode := Node.Parent; strParentText := myParentNode.Text; end;
  4. Paul TOTH

    Custom component on a VCL frame

    the purpose of TFrame is to not register a custom component ! you create a frame, put some components, and voilà you can put this frame on any form of your project without registering anything. when a custom component owns some subcomponents, there's more to do - that I don't have in mind yet - to support serialization to/from the DFM
  5. Paul TOTH

    Create animated GIF in FireMonley

    oh sorry, you want to create GIF...I use GifCam for that, but if you need to this by code it's a bit complexe because GIF supports only 256 colors per frame
  6. Paul TOTH

    Create animated GIF in FireMonley

    googling for FMX and GIF... https://beyondvelocity.blog/2020/01/09/gif-animation-in-fmx/ the component: http://www.raysoftware.cn/559.html
  7. Paul TOTH

    Create animated GIF in FireMonley

    GIFs are now patent-free https://burnallgifs.org/archives/
  8. I don't understand... this is a portion of one of my projects {$IFDEF INDY} HTTP := TidHTTP.Create(Self); {$IFDEF INDY_SSL} SSL := TIdSSLIOHandlerSocketOpenSSL.Create(Self); SSL.SSLOptions.SSLVersions := [sslvTLSv1_2]; {$ELSE} SSL := TIdSSLIOHandlerSocketSChannel.Create(Self); {$ENDIF} HTTP.IOHandler := SSL; {$ELSE} HTTP := THTTPClient.Create; {$ENDIF} HTTP.Get ('https://secure.bioserveur.com/bioserveur-access/ws_download.pl?logincode=' + login + '&password=' + password, response); if I define INDY only my SChannel component raise a 0x80090326 error on InitializeSecurityContext under Windows 10 with INDY and INDY_SLL (OpenSSL) it works without INDY I use System.Net.HttpClient and it works also, with a call to WinHttpSendRequest() from winhttp.dll !
  9. Hello, it seems that curl did fix the problem https://github.com/curl/curl/blob/master/lib/vtls/schannel.c#L223 I can read the site with curl, but my SChannel component fails https://github.com/tothpaul/Delphi/tree/master/Indy.SChannel I did not found the time to look at their code
×