Perth ADUG Meeting (Online)

WADUG Meeting - Tue 11th June

Tuesday Jun 11, 2024 ⋅ 6pm – 8pm (Australian Western Standard Time - Perth)

Geoff Smith - ADUG President - has been using GPT-4o to not only create Delphi code, but to trigger local compilation, and to automatically respond to the compiler errors and warnings.

Now he has gone too far, and recreated Tetris. :slightly_smiling_face::sunglasses:

// - - - - -

I’d like to suggest some regular ‘segments’

  • looking at a chapter of a Delphi book (eg Dalija Prasnikar’s Asynchronous & Event-based Delphi), and
  • discussing an interesting algorithm or coding puzzle.

// - - - - -

Topics that were flagged as of interest in the March meeting :

  • threads (TThread / ITask / IFuture) (and TFuture*)
  • testing (DUnit / DUnitX)
  • exploiting the features of FastMM4/5
  • discussing impressions from the ADUG Symposium

// - - - - -

Other meetings coming up

  • Melbourne on Monday 17th June. Geoff will also be speaking to them.

  • Uk Dev Group - Tuesday 18th June.

// - - - - -

The World Delphi Summit with a dozen great speakers is on on the 13th & 14th June.
You could have a free online ticket worth $300 - see the ADUG Forum.

// - - - - -

A cool bit of code - from Jon Aasenden

// **Fast and dirty StretchDraw()** ! 👀

procedure StretchDrawBitmap(TargetCanvas: TCanvas; const TargetRect: TRect; Bitmap: TBitmap);
var
    SrcWidth, SrcHeight, DstWidth, DstHeight: Integer;
    xRatio, yRatio: Integer;
    x, y: Integer;
    SrcX, SrcY: Integer;
    SrcColor: TColor;
begin
    SrcWidth := Bitmap.Width; SrcHeight := Bitmap.Height;
    DstWidth := TargetRect.Right - TargetRect.Left;
    DstHeight := TargetRect.Bottom - TargetRect.Top;
    xRatio := (SrcWidth shl 16) div DstWidth;
    yRatio := (SrcHeight shl 16) div DstHeight;

    for y := 0 to DstHeight - 1 do begin
        SrcY := (y * yRatio) shr 16;
        for x := 0 to DstWidth - 1 do begin
            SrcX := (x * xRatio) shr 16;
            SrcColor := Bitmap.Canvas.Pixels[SrcX, SrcY];
            TargetCanvas.Pixels[TargetRect.Left + x, TargetRect.Top + y] := SrcColor;
        end;
     end;
end;

What’s going on with that shifting left and right? :thinking::slightly_smiling_face::sunglasses:

// - - - - -

Mark the date.
Cheers,

Paul McGee
WADUG

Zoom meeting.

Topic: ADUG Perth Meeting

Thursday 8th February 2024
6:00pm Meeting open (Perth)
6:15pm Presentations start

Join Zoom Meeting
https://us02web.zoom.us/j/82957853513?pwd=ZjVVU0h6Y1k5TW43cWVLRWxvNzU0QT09

Meeting ID: 829 5785 3513
Passcode: 400123

Relevant to a previous topic : (TActionLists)

User Interface Design with Actions - Ray Konopka - Delphicon 2023

The multiline strings and split windowing coming in very useful at the moment.

Part 2 from June. It was 4 hours in total with @Geoff explaining Delphi working closely, automated, with ChatGPT-4o

Feedback cycle from ChatGPT :

Sadly, splitting the video in two has given both halves weird timing. :confused:

Each part is NOT 4 hrs long. :sweat_smile:
It’s roughly 2 hrs each

These timing points are relative to the time coding in the video. The real time is half that.

00:10:00 .ics meeting invite format
00:15:00 ‘LLM without MatMul’ paper. Slide rules. Industry R&D
00:36:00 Geoff - Introduction
00:45:00 Previous presentations
00:56:00 AI topics overview. Tetris. Connect4. Snake.
01:05:00 Udio
01:15:00 ChatGPT Action Host. Swagger.io (API access). Local controller project
01:25:00 MyTime server via API
01:44:00 Expose local directory by API
01:47:00 Create PONG
02:08:00 NGroq
02:15:00 Future projects
02:22:00 RAG - Retrieval Augmented Generation
02:33:00 (Les Fox) CoPilot - future talk topic. General AI discussion
02:43:00 Delphi vintage info sources. CodeNewsFast.com
02:48:00 .ics, ISO8601 format, System.SysUtils.FormatDateTime
02:55:00 Shared ChatLog samples
03:20:00 Github & 2023 ADUG Symposium presentation
03:24:00 Colourising B&W photos

@Geoff 's AI-related Github page (initially from his 2023 ADUG Symposium talk)

And shared Chat examples …