RAD Studio, Delphi, C++Builder 12.2

[ghubi01]

Hallo

@ AJ_Oldendorf, vielleicht hilft dir das hier weiter: https://www.delphipraxis.net/214048-...stalliert.html

MfG

ghubi01

[perpeto1234]

Nachdem am Freitag bzgl. LSP alles super lief und vom Gefühl her es insgesamt immer tolle Treffer gab, habe ich heute ständig diese Anzeige: "Codeinsight: Loading project 0%". Egal ob ich LSP-Server oder ganz Delphi neulade. Scheint wohl mit der 64Bit-Variante zusammenzuhängen. Wenn ich LSP wieder auf "nicht 64Bit" laufen lasse, klappt es.

Abgesehen davon macht es einen guten ersten Eindruck, wenn bei "Smart CodeInsight" "Uni-Test" statt "Unit-Test" steht.
Der erste Versuch mit "Erkläre mir den Code" habe ich nach 5 Minuten abgebrochen, da dort nichts kam. Also insgesamt scheinen die neuen Features mal wieder super zu funktionieren.

[Uwe Raabe]

Zitat von perpeto1234:

Der erste Versuch mit "Erkläre mir den Code" habe ich nach 5 Minuten abgebrochen, da dort nichts kam. Also insgesamt scheinen die neuen Features mal wieder super zu funktionieren.

Ich hatte erst auch keinen Erfolg damit (ich hatte ChatGPT versucht). Erst nachdem ich $5 auf meinen Account eingezahlt hatte ging es dann nach ein paar Minuten.

Für folgenden Code-Part aus MMX

Delphi-Quellcode:

    Mail := TEmail.Create(nil);
    try
      Mail.OnMapiError := MapiError;
      Mail.WideSubject := VersionResource.FileDescription + ' ' + VersionResource.VersionAsStr + ' usage data';
      Mail.Recipient.Add('[e-mail]');
      Mail.Text := UsageLogger.GetUsageData;
      Mail.ShowDialog := True;
      Mail.SendMail;
    finally
      Mail.Free;
    end;

bekomme ich folgende Erklärung (offenbar als MarkDown):

Zitat:

//************ Erklärung ***************
Dieser Delphi-Code erstellt eine E-Mail-Nachricht und sendet sie, um Nutzungsdaten zu protokollieren. Hier ist eine detaillierte Erklärung der Schritte und was jeder Teil des Codes bewirkt:

1. **Erstellung des E-Mail-Objekts**:
```delphi
Mail := TEmail.Create(nil);
```
Hier wird ein neues `TEmail`-Objekt mit `nil` als Besitzer erstellt. Dieses Objekt wird später verwendet, um die E-Mail zu konfigurieren und zu senden.

2. **Fehlerbehandlung**:
```delphi
Mail.OnMapiError := MapiError;
```
Hier wird eine Fehlerbehandlungsroutine (eine Methode oder Prozedur) zugewiesen, die aufgerufen wird, wenn ein MAPI-Fehler (Messaging Application Programming Interface) auftritt. Dies könnte sinnvoll sein, falls beim Senden der E-Mail ein Problem auftritt.

3. **Betreff der E-Mail**:
```delphi
Mail.WideSubject := VersionResource.FileDescription + ' ' + VersionResource.VersionAsStr + ' usage data';
```
Der Betreff der E-Mail wird gesetzt. Er besteht aus einer Datei-Beschreibung (`FileDescription`) und einer Versionsnummer (`VersionAsStr`) aus dem `VersionResource`-Objekt, gefolgt von dem Text "usage data". Hierbei wird `WideSubject` verwendet, um Unicode-Zeichen zu unterstützen.

4. **Hinzufügen eines Empfängers**:
```delphi
Mail.Recipient.Add('[e-mail]');
```
Hier wird eine E-Mail-Adresse als Empfänger hinzugefügt. In diesem Fall ist es `[e-mail]`.

5. **Inhalt der E-Mail**:
```delphi
Mail.Text := UsageLogger.GetUsageData;
```
Der Text oder die Nachricht der E-Mail wird festgelegt. Der Inhalt wird durch den Aufruf von `GetUsageData` der `UsageLogger`-Instanz abgerufen, die wahrscheinlich Nutzungsdaten erfasst hat.

6. **Dialog anzeigen**:
```delphi
Mail.ShowDialog := True;
```
Diese Zeile setzt die Eigenschaft `ShowDialog` auf `True`, was bedeutet, dass ein Dialog angezeigt wird, in dem der Benutzer die E-Mail vor dem Senden überprüfen kann.

7. **E-Mail senden**:
```delphi
Mail.SendMail;
```
Hier wird die E-Mail mit der `SendMail`-Methode gesendet.

8. **Ressourcenfreigabe**:
```delphi
finally
Mail.Free;
end;
```
Unabhängig davon, ob bei dem Senden der E-Mail ein Fehler aufgetreten ist oder nicht, wird das `Mail`-Objekt im `finally`-Block wieder freigegeben, um Memory-Leaks zu vermeiden. Dies ist eine gängige Praxis in objektorientierter Programmierung, um sicherzustellen, dass Ressourcen ordnungsgemäß verwaltet werden.

Zusammenfassend gesagt, der Code erstellt eine E-Mail mit bestimmten Metadaten, fügt einen Empfänger hinzu, setzt den Text der Nachricht auf Nutzungsdaten und zeigt dem Benutzer ein Dialogfeld, um die E-Mail zu überprüfen, bevor sie gesendet wird. Nach dem Senden wird das E-Mail-Objekt freigegeben.

Dies sind meine Einstellungen:

[BerndS]

Ich kann es irgendwie nicht glauben, dass es sich noch nicht rumgesprochen hat, dass man die Signierung aktuell mit sha256 machen sollte.
Daher wundert es mich doch sehr, dass die Dateien und der Installer sind nur mit sha1 signiert wurden.

Zu mindestens für die Funktion das nicht relevant.

[himitsu]

Habs noch nicht installiert.

Das SmartCodeinsight sieht ja praktisch genauso aus, wie der ChatGPT-Wizard im GetIt. (nur mit noch mehr KIs zur Auswahl, als nur ChatGPT)

Bei dem Wizzard mußte man sich bei OpenAI einen API-Zugang besorgen und dann den API-Key im Delphi/Wizart hinterlegen.
Muß man das bei dem Smarten auch machen, oder säuft das dann alles über einen Key von Emba, welchen die bezahlen?
Ups, übersehn ... jo, muß man sich dann auch erst kaufen. #43

Man muß das Model von Hand eintragen?
Der Wizzard hatte da eine Combobox mit Einigem zu Vorauswahl.

[Uwe Raabe]

Zitat von himitsu:

muß man sich dann auch erst kaufen. #43

Zumindest bei mir - und soweit ich weiß auch bei anderen - klappte es erst nachdem ein Guthaben auf dem Account war (was auch seine Zeit braucht um da durchzusickern). Irgendwo meine ich mal gelesen zu haben, dass der Free Access nur über das Web-Interface geht, aber nicht für den API-Zugriff gilt. Kann ich aber gerade nicht mehr finden.

[fisipjm]

Zum Thema AI Integration, aka smart code Insight.

Ich hab mir mal den Docker runtergeladen für das lokale "ollama" und es über wsl2 zum laufen gebracht, einfach nur weil ich neugierig war und das als einzigen Vorteil gegenüber der Konkurrenz sehe, dass ich mein Model lokal betreiben kann.
First things first: Die Doku sagt, man soll als Pfad "/api/generate" mit hinter die URL werfen. Lasst das weg, dann geht's auch delphi bastellt das selbst hinten dran. (Die Doku funktioniert, wie so oft, also mal wieder nicht)

Dann hat es mich interessiert, wenn man schon ein eigenes Docker Image bereit stellt, mit einem LLM hinten dran, ob man dann vielleicht den weg gegangen ist und hier ein auf Delphi und C++ optimiertes LLM rein gepackt hat.
Leider Fehlanzeige, es handelt sich hier um ein absolut unmodifiziertes stink normales codellame:7b model
Naja, Modifizierung kann man, dank des Open-Source Ansatzes ja wenigstens selbst machen, hab grad nur nicht genug Rechnerkapazitäten frei

https://ollama.com/library/codellama:7b

Damit ist dann auch schon klar, mit was man an RAM rechnen darf, nämlich 8GB Minimum an RAM der dann für das LLM reserviert ist. Da ich hier an einem Laptop ohne dedizierter Nvidia Grafikkarte arbeite (für alles andere ist ollama nicht wirklich optimiert), läuft das LLM "nur" auf einer i7-1265U CPU. Da ist die Antwort des LLMs so langsam, dass die Delphi IDE in einem Timeout rennt.

*IRONIE ON* Das alles durfte ich natürlich selbst herausfinden. Denn vorher zu beschreiben was man hier Benutzt und welche Mindestvoraussetzungen man an sein System anlegt damit es brauchbar funktioniert, wäre im Vorfeld sicher zu viel Arbeit gewesen. Man macht das ja schließlich ehrenamtlich und bekommt diese spitzen IDE nicht bezahlt *IRONIE OFF*

[himitsu]

Wir hatten und vor 'ner Weile eh bei OpenAI bereits für die Firma das gekauft. (hatte es auch bereits in dem ChatGPT-Wizard vom GetIt geteset)

[perpeto1234]

Noch was: funktioniert bei euch Tools -> LSP-Server neustarten?

Bei Delphi 12.1 kam immer eine entsprechende Meldung "LSP-Server wurde neugestartet". Bei mir tut er gefühlt nichts.

[himitsu]

bereits in 12.1 ist bei mir seit längerem schon das Menü disabled. (vielleicht hatte ich es zu oft benutzt und nu isses kaputt)

takskill /im DelphiLSP.exe /f

entweder in der Konsole
oder
mach es so, wie bevor uns Emba ohne zu fragen die Idee geklaut und das dann auch noch falsch gemacht hatte.

Tools > Tools konfigurieren > hinzufügen