Jump to content

CoeurdeLeon

Members
 View Profile  See their activity

  • Content Count

    34

  • Joined

  • Last visited

Posts posted by CoeurdeLeon

  1. Posted · Edited by CoeurdeLeon

    I have been using AI since it came out more than a year ago.

     

    In the beginning Delphi requests for code almost always had errors and fictitious information.

     

    Things have gotten better but I still find a lot of errors.

     

    The AI tools I am using currently are:

    Amazon Q Developer
    Blackbox AI
    ChatGPT
    Claude 3 Sonnet
    Google Gemini
    mistral.ai
    Paid-GitHub Copilot
    Paid-Replit AI
    Paid-Tabnine

     

    Of all of these as of 5/16/24 I find Claude the best but still frequently lacking.

     

    Please add your AI favorites and comment on their delphi coding skills.

     

    Dick Maley

  2. Posted

    Can anyone tell me how to clear the TEdgeBrowser cache?  

     

    I set EdgeBrowser.UserDataFolder :='C:\Temp\CPRSBrowserCache\';

     

    The folder is created and never used, i.e., always empty.

     

    Cached data is being displayed rather than new data.

     

    If I open up the Edge browser and clear the cache then correct data is displayed in my TEdgeBrowser instance.

     

    Why is EdgeBrowser.UserDataFolder not being populated?

     

    How can I empty the cache?

     

    Dick Maley

  3. Posted

    The US Veterans Affairs Medical Health Record system uses a database called Vista which is a FileMan/Mumps/M based DBMS.  It is old.  It is very fast.  It is huge!!!  Many arrogant vendors have tried to move this data to a MODERN DBMS system.  Most have failed.  The Medical Health Record System at VA is written in Delphi.  It is called "CPRSChart".  It is used my millions of users daily.  The connections between the Delphi front end and the Vista backend are very complicated and arcane.  

     

    Is there an open source framework for developing new FireDac connectors?

     

    I have not found any.

     

    I would like to develop a FileMan FireDac connector so that CPRSChart could communicate directly with the Vista database.

     

    How would you recommend that I proceed.

     

    Thank you.

    Dick Maley

  5. Posted

    I purchased "EurekaLog_7.11.0.1_Enterprise_for_RAD_Studio" with source code on January 21, 2021.  The subscription ran out a year later.

    Since I purchased source code I decided to upgade EurekaLog so it would work with Rad Studio 12 Athens.

    To do this:

    I copied the Studio28 folder in the projects directory to Studio29.

    In the *.dpk and *.dproj files I replaced 28 with 29.

    In the  "\Neos Eureka S.r.l\EurekaLog 7\Source\Common" directory I modified "ElDefines.inc" to add Delphi 12.

    With these changes "EurekaLogGroup.groupproj" successfully compiles and in the packages directory a new folder appears "Studio29".  This folder is filled with the 290 bpl files and other files.

    When I try to install the packages I get the following message:

    "Can't load package E:\Installs\Studio29\EurekaLogExpert290.bpl.
    The specified module could not be found."

    The bpl's are there.

    What is the problem?

    Richard Maley

  10. Posted

    My installation of Rad Studio 12 does have "Formatter.exe" in the bin directory.  I added this to the tools menu and ran it against some Rad Studio 12 code.

     

    It worked fine,

     

    I am confident that the new long strings feature would not format correctly, but I am not sure.

     

    Can anyone tell me where the formatting configuration is stored in Rad Studio 11 so I can migrate it to Rad Studio 12?

     

    Thank you.

  12. Posted

    Anders

    Thank you for your answer and for your many years of supporting the Delphi community.  I was not aware of your blog.  It is a treasure of information related to TGifImage.

     

    I have added it to my list of standard reference sources.

     

    Thank you.

    Dick Maley

     

     

  16. Posted

    Quote

    They do seem to be looking for a pretty experienced developer but does that imply grey beard? And how do you conclude that the salary is minimal?

    The position in Frederick, Maryland is about 20 miles from my house.  For the last 4 years this company has been advertising remote Delphi Developer positions working for the Legal & General America Headquarters located at 3275 Bennett Creek Ave in Frederick, MD 21704, United States.  Many days I would receive 6 calls a day from different headhunters looking to fill this position.  Frequently the connection is very bad (voip) and the indian accent is very difficult to understand.  I have interviewed with one of the vendors trying to fill the position, Diverse Lynx.  Eventually, I cut off all communications with this company because they appeared to be human traffickers and completely untrustworthy.
    I am a grey beard as was mentioned in one of the earlier posts.  I could do the job with very little effort.  Something is very fishy about this position in Frederick, MD.  They are looking to fill the position for $50/hour.

     

    Dick Maley

    • Like 3

  17. Posted

    I fear the error is mine.

     

    The Beta package is 28.0.47741.2595

     

    Launching XMLMapper from the tools menu and examining its about window I get

    image.png.656546a17b03cea1bb74932dd8050268.png

     

    The versions match.

    I was expecting to see the new filters on the left side.

    These are displayed when the schema view is selected.

    Miquel and Lars, thank you for your help.

    Dick Maley 

  19. Posted

    I have just finished upgrading to 11.3 and the first item I have installed is the new XMLMapper.

     

    I CANNOT FIND IT.

     

    All I can find is the old one.  Where is it?

     

    Miguel, I really liked your recent webinar and look forward to your continued progress on this project.

     

    Dick Maley

  24. Posted

    Thank you for all the responses.  I would like to specially thank esegese (Sergio Gomez Cortijo).

     

    I was hoping to demonstrate a number of methods of connecting to chatGPT.  However I have now modified that objective to connecting with GPT3.

     

    Listed below is a unit that either uses Indy or IPworks to query GPT3.  The 3 functions work well for me and I hope they work for you.

     

    I had also wanted to have some functions that use the http get method, but none worked for me.

     

    Unit ads.Gpt3;

    Interface

    Function GPT3_IndyPostWithSSL(Const question, Api_Key: String): String; //Indy Post with SSL
    Function GPT3_IPWorks_PostWithRest(Const question, Api_Key: String): String;
    Function GPT3_IPWorksWithPost(Const question, Api_Key: String): String;

    Implementation

    Uses
      IdHttp,
      IdSSLOpenSSL,
      ipwcore,
      ipwhttp,
      ipwrest,
      ipwtypes,
      ipwxml,
      System.Classes,
      System.JSON,
      System.NetEncoding,
      System.SysUtils,
      Vcl.Dialogs,
      Vcl.Forms;

    Function GPT3_IndyPostWithSSL(Const question, Api_Key: String): String; //Indy Post with SSL
    Var
      http     : TIdHTTP;
      JSON     : TJSONValue;
      JSonArray: TJSonArray;
      PostData : String;
      SSL      : TIdSSLIOHandlerSocketOpenSSL;
      Stream   : TStringStream;
    Begin
      http := TIdHTTP.Create(Nil);
      SSL  := TIdSSLIOHandlerSocketOpenSSL.Create(Nil);
      Try
        SSL.SSLOptions.Method := sslvTLSv1_2;
        http.IOHandler        := SSL;
        http.Request.CustomHeaders.Add('Authorization: Bearer ' + Api_Key);
        http.Request.ContentType := 'application/json';
        PostData := Format('{"model": "text-davinci-003","prompt": "%s","max_tokens": 2048,"temperature": 0}', [question]);
        Stream := TStringStream.Create(PostData);
        Try
          Result := http.Post('https://api.openai.com/v1/completions', Stream);
          JSON   := TJSonObject.ParseJSONValue(Result).GetValue<TJSONValue>('choices');
          Result := TJSonArray(JSON).Items[0].GetValue<TJSONString>('text').Value;
        Finally
          Stream.Free;
        End;
      Finally
        SSL.Free;
        http.Free;
      End;
    End;

    Function GPT3_IPWorks_PostWithRest(Const question, Api_Key: String): String;
    Var
      ipwrest: TipwREST;
    Begin
      ipwrest := TipwREST.Create(Nil);
      Try
        ipwrest.ContentType  := 'application/json';
        ipwrest.OtherHeaders := 'Authorization: Bearer ' + Api_Key;
        ipwrest.PostData     := Format('{"model": "text-davinci-003","prompt": "%s","max_tokens": 2048,"temperature": 0}',
          [question]);
        Try
          ipwrest.Post('https://api.openai.com/v1/completions');
          ipwrest.XPath := '/json/choices/[1]/text';
          Result        := ipwrest.XText;
          If Pos('"', Result) = 1 Then
            Result := Copy(Result, 2, Length(Result) - 1 + 1);
          If Copy(Result, Length(Result), 1) = '"' Then
            Result := Copy(Result, 1, Length(Result) - 1);
          If Copy(Result, 1, 4) = '\n\n' Then
            Result := Copy(Result, 5, Length(Result) - 5);
          Result   := Trim(Result);
        Except
          On E: Exception Do
            ShowMessage(E.ClassName + ': ' + E.Message);
        End;
      Finally
        FreeAndNil(ipwrest);
      End;
    End;

    Function GPT3_IPWorksWithPost(Const question, Api_Key: String): String;
    Var
      http     : TIpwHttp;
      response : String;
      JSON     : TJSONValue;
      JSonArray: TJSonArray;
    Begin
      http := TIpwHttp.Create(Nil);
      Try
        Try
          http.ContentType  := 'application/json';
          http.OtherHeaders := 'Authorization: Bearer ' + Api_Key;
          http.PostData     := Format('{"model": "text-davinci-003","prompt": "%s","max_tokens": 2048,"temperature": 0}',
            [question]);
          http.Post('https://api.openai.com/v1/completions');
          response := http.TransferredData;
          JSON     := TJSonObject.ParseJSONValue(response).GetValue<TJSONValue>('choices');
          Result   := TJSonArray(JSON).Items[0].GetValue<TJSONString>('text').Value;
        Except
          On E: Exception Do
            Result := 'Error: ' + E.Message;
        End;
      Finally
        FreeAndNil(http);
      End;
    End;

    End.

     

    Richard Maley

     

×