Jump to content

Lars Fosdal

Administrators
 View Profile  See their activity

  • Content Count

    3303

  • Joined

  • Last visited

  • Days Won

    110

Posts posted by Lars Fosdal

  6. Posted

    • Which language
    • Which version
    • Which class is SslHttpRest, and  from which unit?

    If you use System.Net.HttpClient (which I use, because getting the REST classes to work with various flavours of OAuth2 turned out to be a challenge), you can do it something like this (code is not complete 😞 

    var
  HTTPRequest: IHttpRequest; // from System.Net.HttpClient
  HttpResponse: IHttpResponse; // System.Net.HttpClient
  ReqHeaders: TNetHeaders; // System.Net.URLClient
  URL: String;
begin
  try
    try
      try
        HTTPRequest := HTTP.GetRequest('GET', URL);

        ReqHeaders := [
          TNetHeader.Create('Content-Type', 'application/json'),
          TNetHeader.Create('Content-Length, ''),
          TNetHeader.Create('Store-Token', '22345673301244567896663456789012'),
          TNetHeader.Create('User-Agent', 'PostmanRuntime/7.37.3'),
          TNetHeader.Create('Accept', '*/*'),
          TNetHeader.Create('Postman-Token', '40f28212-2f71-487a-a22f-d6ecdfa61b8b'),
          TNetHeader.Create('Host', 'localhost:8080'),
          TNetHeader.Create('Accept-Encoding', 'gzip, deflate, br'),
          TNetHeader.Create('Connection', 'keep-alive')
        ];

        HttpResponse := HTTP.Execute(HTTPRequest,nil, ReqHeaders); // HTTP is THTTPClient from System.Net.HttpClient
...

     

  10. Posted

    Can we stay on the topic, please?

    Are there any practical languages that are applicable to writing the same variety of solutions as Delphi, that are actually memory safe?

    Even if you manage your memory in Delphi, it is not hard to get corrupted data due to a dangling or misdirected pointer, even in Delphi.

    • Like 2

  12. Posted

    On 4/13/2024 at 11:24 PM, Anders Melander said:

    Maybe you should think a bit more about that. Ideally until it is no longer a mystery.

    IMO, that was not very helpful.
    If you are a new user, you may need to be guided on how to do it right, not just be told that you are doing it wrong.

    • Like 1

  15. Posted

    What if you treat every value as a generic type?
    That way you are free to use TypeInfo? 

    procedure TParam<T>.SetAsString(const aValue: string);
var
  TV: TValue;
begin
  TV := TValue.From<T>(Default(T));
  try
    case TV.Kind of
      tkEnumeration: TV := TValue.FromOrdinal(TypeInfo(T), GetEnumValue(TypeInfo(T), aValue));
      tkInteger: TV := TValue.From<Integer>(StrToInt(aValue));
      tkInt64:   TV := TValue.From<Int64>(StrToInt(aValue));
      tkFloat:   TV := TValue.From<Extended>(StrToFloat(aValue));
            else TV := TValue.From<String>(aValue);
    end;
    FValue := TV.AsType<T>;
  except
    on E:Exception
    do begin
      CmdDebugOut(Parent.Debug + ': "' + aValue + '" -> ' + E.Message);
      FValue := Default(T);
    end;
  end;
end;

function TParam<T>.GetAsString: string;
var
  TV: TValue;
begin
  TV := TValue.From<T>(FValue);
  Result := TV.AsString;
end;

     

  17. Posted · Edited by Lars Fosdal
    flogging the wrong dead horse again

    I should simply stop posting without actually checking shit...

     

      object Label1: TLabel
        Left = 303
        Top = 233
        Width = 99
        Height = 15
        Caption = 'Text'#32'Text'
      end

     

    does however, work correctly.

    Edit
    But if you actually edited the dfm text and put in that #32, then view as form, and back to view as text - it has been converted to 'Text Text'.

    As @Lajos Juhászpoints out - Unicode text that is entered in the form attribute editor, will translate to #1234 values.

    • Like 1

  21. Posted 

    Ref := ItemProvider.Grab(ItemId); 
// or Ref := ItemProvider.GrabForChange(ItemId);
try
  // do stuff
finally
  ItemProvider.Drop(Ref);
end;

    ItemProvider can do the allocation and loading, as well as the disposal.
    If there is parallell use, it can secure against readers/other writers, have a keep-alive in cache period, etc.

    In theory, with the "smart pointer" trick, you could even do away with the try/finally.

    • Like 1

  22. Posted

    12 minutes ago, Anders Melander said:

    code to be generated based on fuzzy statistics

    That is not what I intended to say.  I was wondering if someone had tried to apply LLM for finding even better patterns for optimization than those that are currently implemented.

    Naturally, such improved patterns would be made into new deterministic rules in the compiler after being properly vetted.

     

    I agree that todays AI output has to be treated as indicative at best, and as bullshit at worst.

    • Like 2

  23. Posted

    Request/Release

    29 minutes ago, mitch.terpak said:

    I once tested GPT4.0 for some assembly code. Its actually quite good at explaining and improving Assembly code, but absolutely horrendous at writing it from scratch.

    Which is to be expected, I guess, since the training was not done with optimization in mind.

×