ChatGPT - Wow! (Cron-Job)

[Jens01]

Die Erfahrung von jaenicke kann ich gut teilen und bestätigen.

Ich lasse mir auch öfter mal aus anderen Sprachen Code nach Delphi übersetzen. GEht meist um mathematische Probleme. Das geht ganz gut. Prüfen muss man aber immer.
Gutgläubig darf man nie sein.

[Rollo62]

Ich kannst nicht genau sagen, aber ich glaube ChatGPT 4o sollte kostenlos sein.
:https://openai.com/index/gpt-4o-and-more-tools-to-chatgpt-free/

[himitsu]

Nicht, wenn es darum geht, die WebAPI zur automatischen Abfrage nutzen zu wollen

[Mavarik]

Ich lasse mittlerweile alle meine MySQL-Querys von Chat-GPT schreiben.

- Richtige Frage stellen
- original Tabellen und Feldbezeichnungen nennen
- Bedingungen benennen
- fertig

20 Zeilen mit Joins inner selects und alles drum und dran.

Natürlich ohne einen Schreibfehler oder eine vergessene Klammer.

Mavarik

[fisipjm]

Zitat von Mavarik:

- Richtige Frage stellen
...

Hab das Gefühl, da scheitert es bei den meisten. Ich kann auch nur positives berichten. Natürlich spukt die KI kein fertiges Programm aus und natürlich muss man die Ergebnisse kontrollieren, aber da setze ich einfach mal genug gesunden Menschenverstand voraus.
Was ich auch schon oft festgestellt habe, wenn man seine Frage etwas offener stellt und die KI dadurch nicht so stark einschränkt, kommen über die Antwort oft Ansätze die man sonst vielleicht nicht verfolgt hätte, bzw. auf die man vielleicht nicht gekommen wäre.

Ich gehe auch oft gerne hin und werfe eine fertige Funktion in ChatGPT und frag nochmal wie er den Code unter dem Aspekt von Lesbarkeit, Performance und Aufbau findet und ob es aus seiner Sicht was zu verbessern gibt. So zu sagen Pair-Programming mit der KI. Das kann richtig laune machen und man kann sich dadurch selbst ständig verbessern.

My 2 Cents.

vG
PJM

[Rollo62]

Zitat von fisipjm:

Was ich auch schon oft festgestellt habe, wenn man seine Frage etwas offener stellt und die KI dadurch nicht so stark einschränkt, kommen über die Antwort oft Ansätze die man sonst vielleicht nicht verfolgt hätte, bzw. auf die man vielleicht nicht gekommen wäre.

Und/Oder der Frage entsprechend viele Positiv-Beispiele dabeilegen, die exakt beschreiben, was genau man eigentlich haben will und in welchem Format.

[Gausi]

Ich habe ja in letzter Zeit öfter mal über KI gemeckert, besonders über Googles Bard bzw. jetzt Gemini. Aber Holladiwaldfee ... ChatGPT ist tatsächlich um Welten besser.

Da ich grade dabei bin, bei meiner Audio-Bibliothek auch Opus-Dateien zu unterstützen, habe ich für ein (bereits implementiertes) Teilproblem mal diese KIs befragt.

Mein Input: Kannst du mir eine Funktion in der Programmiersprache Delphi schreiben, die aus einer gegebenen Ogg-Datei die maximale absolute granule position ermittelt?

Gemini hat (mal wieder) irgendwelche nicht-existenten Klassen herbei-fantasiert und somit nutzlosen Code produziert.

Delphi-Quellcode:

unit OggGranulePosition;

interface
uses
  Windows,
  Messages,
  StdCtrls,
  ExtCtrls,
  OggVorbis;

implementation

function GetMaxGranulePosition(oggFileName: string): LongWord;
  var
    oggFile: TOggVorbisFile;
    oggStream: TOggVorbisStream;
    granulePosition: LongWord;
    granuleCount: LongWord;
    i: LongWord;
  begin
    oggFile := TOggVorbisFile.Create;
    try
      oggFile.Open(oggFileName, ofRead);

      oggStream := TOggVorbisStream.Create(oggFile);
      try
        granulePosition := 0;

        granuleCount := oggStream.Info.Packets;

        for i := 0 to granuleCount - 1 do
        begin
          granulePosition := Max(granulePosition, oggStream.Packets[i].Granulepos);
        end;

      finally
        oggStream.Free;
      end;

    finally
      oggFile.Free;
    end;

    Result := granulePosition;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Maximal absolute granule position: ' +
             IntToStr(GetMaxGranulePosition('C:\path\to\oggFile.ogg')));
end;

end.

ChatGPT liefert hingegen eine Struktur für den Ogg-Seitenheader, ermittelt nach einer Gültigkeits-Überprüfung daraus den gesuchten Wert. Dann wird korrekt die Größe der Seite berechnet, um sich seitenweise durch die Datei zu hangeln, um dann schließlich auf der letzten Seite den gesuchten Wert zu ermitteln.

Delphi-Quellcode:

program MaxGranulePosition;

uses
  Classes, SysUtils;

type
  TOggPageHeader = packed record
    CapturePattern: array[0..3] of AnsiChar;
    Version: Byte;
    HeaderType: Byte;
    GranulePosition: Int64;
    BitstreamSerialNumber: Cardinal;
    PageSequenceNumber: Cardinal;
    Checksum: Cardinal;
    PageSegments: Byte;
  end;

function ReadOggPageHeader(Stream: TStream; out Header: TOggPageHeader): Boolean;
begin
  Result := Stream.Read(Header, SizeOf(TOggPageHeader)) = SizeOf(TOggPageHeader);
end;

function GetMaxGranulePosition(const FileName: string): Int64;
var
  FileStream: TFileStream;
  OggPageHeader: TOggPageHeader;
  MaxGranulePosition: Int64;
  PageSegments: array of Byte;
  SegmentSize: Integer;
  I: Integer;
begin
  MaxGranulePosition := 0;
  FileStream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    while FileStream.Position < FileStream.Size do
    begin
      if not ReadOggPageHeader(FileStream, OggPageHeader) then
        Break;

      if (OggPageHeader.CapturePattern <> 'OggS') then
        Break; // Invalid Ogg page

      if OggPageHeader.GranulePosition > MaxGranulePosition then
        MaxGranulePosition := OggPageHeader.GranulePosition;

      SetLength(PageSegments, OggPageHeader.PageSegments);
      FileStream.Read(PageSegments[0], OggPageHeader.PageSegments);

      SegmentSize := 0;
      for I := 0 to OggPageHeader.PageSegments - 1 do
        Inc(SegmentSize, PageSegments[I]);

      FileStream.Seek(SegmentSize, soFromCurrent);
    end;
  finally
    FileStream.Free;
  end;
  Result := MaxGranulePosition;
end;

var
  FileName: string;
  MaxGranule: Int64;
begin
  Write('Enter the Ogg file path: ');
  ReadLn(FileName);
  try
    MaxGranule := GetMaxGranulePosition(FileName);
    WriteLn('Max Granule Position: ', MaxGranule);
  except
    on E: Exception do
      WriteLn('Error: ', E.Message);
  end;
  ReadLn;
end.

Meine bisherigen Methode, vom Ende der Datei aus den letzten Ogg-Header zu suchen, ist zwar schneller, wenn die Seitengröße klein ist. Aber wenn die fehlschlägt (warum auch immer) ist das, was ChatGPT vorschlägt, die korrekte und sichere Variante.

Hat mich tatsächlich beeindruckt. Vor allem, weil das ja kein "Standard-Problem" ist, was ständig diskutiert wird.

[Rollo62]

Zitat von himitsu:

Nicht, wenn es darum geht, die WebAPI zur automatischen Abfrage nutzen zu wollen

Ja, aber der Playground mit CopyAndPaste scheint mir aktuell immer qualitativ im Ergebnis noch etwas besser zu sein,
in der Bezahlvariante.
Vermutlich benutzt OpenAI da einen optimierten Session-Cache, den man sonst irgendwie selber nachbilden muss.

Lange Zeit war im Playground GPT4 und im WebAPI aber nur der schwächere GPT3.5, kann sein dass dies jetzt anderes ist, es ändert sich ja gefühlt wöchentlich irgendwas

Zitat von Mavarik:

- Richtige Frage stellen
- original Tabellen und Feldbezeichnungen nennen
- Bedingungen benennen
- fertig

Im Playground kann man dazu sehr spezialisierte GPTs, optimiert für den jeweiligen Zweck genau bestimmen.
Da reicht es dann schon nur die Roh-Daten zu schicken mit einer kleinen Anweisung, den Rest macht er immer gleich und präzise.
Ist aber leider Handarbeit und so nicht im API vorhanden, trotzdem viel schneller als alles andere.

[dummzeuch]

Zitat von Rollo62:

Ich kannst nicht genau sagen, aber ich glaube ChatGPT 4o sollte kostenlos sein.
:https://openai.com/index/gpt-4o-and-more-tools-to-chatgpt-free/

Der Link ist kaputt. Richtig wäre:
https://openai.com/index/gpt-4o-and-...-chatgpt-free/