Delphi 10.2 Tokyo Starter

[Turbo78]

Ich habe Delphi geladen und installiert. in der Freigabe E-Mail stand das Angebot das RAD Studio 10.2 Tokyo zu laden.
Beim installieren habe ich die Fehlermeldung erhalten, dass ich Delphi zuerst schließen muss. Dies ging aber nicht. Deshalb habe ich die Installation abgebrochen und mit dem Task Manager Delphi gekillt und danach deinstalliert.
Ein Versuch das RAD Studio erneut zu installieren hat gescheitert. Nach der Installation vom RAD Studio wird automatisch die Installation vom Delphi gestartet und diese scheitert.

Eine Installation vom Delphi ohne RAD Studio geht aber nicht mehr. Statt dieser wird immer wieder die Installation vom RAD Studio gestartet.
Die Ursache liegt wahrscheinlich darin, dass in Registry die Spuren von den ersten Installationsversuchen geblieben.

Weiß jemand, wie man die Registry bereinigen kann, bzw. nur das Delphi 10 Starter alleine installieren kann.
Vielen Dank in Voraus
Toni

[himitsu]

Version 10.2 ist die Compiler-Version 32.0, welche auch für die Verzeichnisse und Registry genutzt wird. (Link)

Löschen alter/falscher Lizenzen:
C:\Program Files (x86)\Embarcadero\Studio\**.0\bin\LicenseManager.exe

Löschen der alten Registry:
HKEY_CURRENT_USER\Software\Embarcadero\BDS\**.0

Der Eintrag für den Uninstaller müsste da drin sein:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall



Delphi ist ein "RAD Stutio", allerdings nur mit der Personality für "Delphi", also ohne "C++ Builder".

[Turbo78]

Vielen Dank, leider hatte ich wenig Zeit letzte Woche, so dass ich erst heute weiter arbeiten konnte.
Zuerst, es hat nicht ganz geklappt, so dass ich nach der Deinstallation das komplette Embarcadero Verzeichniss und alle Embarcadero Registry gelöscht habe.

Danach habe ich mich als Admin eingeloggt (User mit Admin-Rechten hat nicht geklappt!) und die Installation wiederholt.
Diese ist aber nicht ganz fehlerfrei gelaufen - die Hilfe wurde nicht installiert (beim laden wurde .
Ein Paar kleinere Programme habe ich erfolgreich übersetzen können.

Beim Versuch spezielle Funktion zu Übersetzen habe ich doch die Hilfe gebraucht.

Also die erste Frage, kann man die Hilfe nachträglich laden / installieren, ohne die komplette Installation zu wiederholen?

Das Zweite.
Ich wollte eine Komponente Installieren (TNUmberEdit). Bei der Installation habe ich einen Fehler gemacht, wodurch in der lib eine Leiche geblieben ist.
Die Frage: wie kann man diese Leiche löschen oder überschreiben?

Vielen Dank in Voraus
Toni

[Glados]

Was meinst du mit "lib"? Bei mir ist das ein Verzeichnis mit Komponenten-Dateien drin. Wenn das bei dir auch so ist:
einfach die Komponente noch einmal installieren und dann deinstallieren. So habe ich bisher alles wegbekommen.
Danach natürlich die Daten löschen.

TEdit hat auch eine Option um nur Zahlen anzuzeigen.

[Turbo78]

Zitat:

Zitat von Glados (Beitrag 1376601)

Was meinst du mit "lib"? Bei mir ist das ein Verzeichnis mit Komponenten-Dateien drin. Wenn das bei dir auch so ist:
einfach die Komponente noch einmal installieren und dann deinstallieren. So habe ich bisher alles wegbekommen.
Danach natürlich die Daten löschen.

TEdit hat auch eine Option um nur Zahlen anzuzeigen.

Zuerst, ich portiere ein ziemlich großes Programm (100 Module, davon 70 mit Forms) von Delphi7 nach Delphi10.
Zudem, TNumberEdit überwacht die Eingabe, hat automatische Grenzwertüberwachung und die Maske für die Darstellung von Zahlen.
Eine Änderung wäre deshalb sehr aufwändig.

Bezüglich Komponenten bin ich gewohnt, dass die neue Komponente in einen Package (ich habe es falsch als lib bezeichnet) abgelegt wird. Wie ist es bei Delphi 10?
Wie gesagt, bei mir ist die Delphi-Hilfe nicht installiert, so dass an die Hilfe von Anderen angewiesen bin.

[himitsu]

Zitat:

Zitat von Turbo78 (Beitrag 1376606)

Wie ist es bei Delphi 10?

Genauso?

Die Hilfe ist auch online erreichbar.
http://docwiki.embarcadero.com
http://docwiki.embarcadero.com/RADSt...o/en/Main_Page
Es gibt hier irgendwo ein Projekt, welches die OH, nach Druck auf F1, durch einen Aufruf dahin ersetzt.

Diese Hilfe gibt es auch nochmal als Suchindex, hier im Forum.
http://www.delphipraxis.net/dp_reference.php

Was für eine Leiche?

[Turbo78]

Zuerst vielen Dank für die Hilfe bezüglich installation einer neuen Komponente. Es funktioniert.

Weitere Fragen:

1. Bei Delphi7 habe ich die Funktionen GetComputerName und GetUserName benutzt. Wie macht man es unter Delphi 10?
2. Wie ist der Excel-Server unter Delphi 10 implementiert?

Danke in Voraus

Toni

[Glados]

Muss man doch eh alles selber schreiben:

Delphi-Quellcode:

function getUsername: string;
var
 Buffer: array [0 .. 255] of Char;
 Size: DWORD;
begin
 Result := '';
 Size := SizeOf(Buffer);

 if Winapi.Windows.getUsername(Buffer, Size) then // Winapi.Windows in uses aufnehmen
  SetString(Result, Buffer, Size - 1);
end;

function getComputerName: string;
var
 Len: DWORD;
begin
 Result := '';

 Len := MAX_COMPUTERNAME_LENGTH + 1;
 SetLength(Result, Len);

 if Winapi.Windows.getComputerName(PChar(Result), Len) then // Winapi.Windows in uses aufnehmen
  SetLength(Result, Len);
end;

[Turbo78]

Vielen Dank!

[Turbo78]

Die Lösung ist eigentlich die uses zu ändern, statt Windows soll man WinApi.Windows schreiben.
Auf diese Art bleibt das Code unverändert.

Leer

[Turbo78]

Es gelingt mir nicht die VersionInfo einzulesen.
Ich habe mit beiden Infostrings ausprobiert, aber es liegt anscheinlich an was anderen.
Hat jemand eine Idee, warum die Funktion in Delphi 10 nicht funktioniert?

Danke in Voraus,
Toni

Diese Prozedur funktioniert unter Delphi 7:

Delphi-Quellcode:

  Procedure SetupProgramVersionData;

    const
      InfoNum = 10;
      InfoStr: array[1..InfoNum] of string =
(* *)
        ('CompanyName', 'FileDescription', 'FileVersion',
         'InternalName', 'LegalCopyright', 'LegalTradeMarks',
         'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
(*
        ('Firmenname', 'Beschreibung', 'Dateiversion',
         'InternerName', 'Copyright', 'Warenzeichen',
         'Originaldateiname', 'Produktname', 'Produktversion', 'Kommentare');
*)
    var
      S: string;
      n, Len, i: DWORD;
      Buf: PChar;
      Value: PChar;
      ValueStr: array[1..InfoNum] of string;
    begin // SetupProgramVersionData
      S := Application.ExeName;
      n := GetFileVersionInfoSize(PChar(S), n);
      if n > 0 then begin
        Buf := AllocMem(n);
        GetFileVersionInfo(PChar(S), 0, n, Buf);

        for i := 1 to InfoNum do
          if VerQueryValue(Buf, PChar('StringFileInfo\040704E4\' + InfoStr[i]), Pointer(Value), Len) then begin
            ValueStr[i] := Value;
            end;
        FreeMem(Buf, n);

    end; // SetupProgramVersionData

[Glados]

Versuchs mal hiermit

Delphi-Quellcode:

function getVersionInfo(FileName, InfoStr: string; const withBuild: Boolean = False): string;
var
 VersionInfoSize, VerInfoSize, GetInfoSizeJunk: DWORD;
 VersionInfo, Translation, InfoPointer: Pointer;
 VersionValue, tmpRes: string;
begin
 Result := '';

 VerInfoSize := GetFileVersionInfoSize(PChar(FileName), GetInfoSizeJunk);

 if VerInfoSize > 0 then
  begin
   GetMem(VersionInfo, VerInfoSize);

   try
    GetFileVersionInfo(PChar(FileName), 0, VerInfoSize, VersionInfo);

    VerQueryValue(VersionInfo, '\\VarFileInfo\\Translation', Translation, VerInfoSize);
    VersionValue := '\\StringFileInfo\\' + IntToHex(LoWord(Integer(Translation^)), 4) + IntToHex(HiWord(Integer(Translation^)), 4) + '\\';
    VersionInfoSize := 0;

    if InfoStr = 'Build' then
     begin
      VerQueryValue(VersionInfo, PChar(VersionValue + 'FileVersion'), InfoPointer, VersionInfoSize);
      tmpRes := PChar(InfoPointer);
      tmpRes := Copy(tmpRes, LastDelimiter('.', tmpRes) + 1, Length(tmpRes));
     end
    else
     begin
      VerQueryValue(VersionInfo, PChar(VersionValue + InfoStr), InfoPointer, VersionInfoSize);
      tmpRes := PChar(InfoPointer);
      if (InfoStr = 'FileVersion') and (not withBuild) then
       tmpRes := Copy(tmpRes, 1, LastDelimiter('.', tmpRes) - 1);
     end;

    Result := tmpRes;
   finally
    FreeMem(VersionInfo);
   end;
  end;
end;

... := getVersionInfo(ParamStr(0), 'FileVersion');
... := getVersionInfo(ParamStr(0), 'LegalCopyright');
... := getVersionInfo(ParamStr(0), 'Build');

Geht sicher schöner. Könnt ihr ja vielleicht schöner machen, ich wüsste nicht wie. Aber es funktioniert perfekt von Windows XP bis Windows 10.

[Turbo78]

Vielen Dank!
Ich habe es nicht ganz übernommen, sondern nur die Hex-Konstante 040704E4 in 040904E4
(das ist das Ergebnis von IntToHex(LoWord(Integer(Translation^)), 4) + IntToHex(HiWord(Integer(Translation^)), 4) )
angepasst.

Ich habe eine weitere Frage bezüglich Conditional Compilation.
In Borland Delphi 7 konnte man unter Project/Options $DEFINE 'name' eintragen. Im Delphi 10 wird diese Anweisung beim übersetzen ignoriert.
Wie macht man es beim Delphi 10 richtig?

Danke in Voraus,
Toni

[jaenicke]

Zitat:

Zitat von Turbo78 (Beitrag 1377659)

In Borland Delphi 7 konnte man unter Project/Options $DEFINE 'name' eintragen. Im Delphi 10 wird diese Anweisung beim übersetzen ignoriert.
Wie macht man es beim Delphi 10 richtig?

Dort haben wir auch Defines eingetragen. Das funktioniert auch.

[Turbo78]

Gibt es in Delöphi 10 Schnittstelle zu EXCEL (eigentlich Office?) ?
Falls ja, wie wird in Delphi 10 mit EXCEL gearbeitet.

Im Delphi7 gab es Schnittstellen-Dateien für Office mit Deklarationen von Konstanten und Funktionsaufrufen.

Danke in Voraus, Toni

[Der schöne Günther]

Die Office-Komponenten sind noch dabei (zumindest waren sie das um XE 7 herum noch), man muss sie aber von Hand installieren:

http://francois-piette.blogspot.de/2...omponents.html

[Turbo78]

Zitat:

Zitat von jaenicke (Beitrag 1377660)

Zitat:

Zitat von Turbo78 (Beitrag 1377659)

In Borland Delphi 7 konnte man unter Project/Options $DEFINE 'name' eintragen. Im Delphi 10 wird diese Anweisung beim übersetzen ignoriert.
Wie macht man es beim Delphi 10 richtig?

Dort haben wir auch Defines eingetragen. Das funktioniert auch.

Bei mir funktioniert es nicht - die Defines werden ignoriert.

[Turbo78]

Zitat:

Zitat von Der schöne Günther (Beitrag 1378563)

Die Office-Komponenten sind noch dabei (zumindest waren sie das um XE 7 herum noch), man muss sie aber von Hand installieren:

http://francois-piette.blogspot.de/2...omponents.html

Sind leider nicht bei Delphi 10.2 Tokyo Starter :(

[Turbo78]

Gibt es die Beschreibung von Delphi 10.2 Tokyo Starter Features ?

[Aviator]

Zitat:

Zitat von Turbo78 (Beitrag 1378611)

Gibt es die Beschreibung von Delphi 10.2 Tokyo Starter Features ?

Jep. Hier.

[Turbo78]

Zitat:

Zitat von Aviator (Beitrag 1378612)

Zitat:

Zitat von Turbo78 (Beitrag 1378611)

Gibt es die Beschreibung von Delphi 10.2 Tokyo Starter Features ?

Jep. Hier.

Vielen Dank!

Wo sieht man ob Office unterstützt wird?
Sieht man ob die Option Definitions unterstützt wird - ich sehe es nicht.

[Glados]

...

Zitat:

Ribbon Controls components for creating Microsoft Office style ribbon interfaces including ribbon, ribbon
application menu bar, combobox, toolbar and tips [CD | CD | CD]

[jaenicke]

Zitat:

Zitat von Turbo78 (Beitrag 1378564)

Bei mir funktioniert es nicht - die Defines werden ignoriert.

Ich kann nur vermuten, dass du es in der falschen Buildkonfiguration einträgst?

Ohne die Projektdatei oder Screenshots von den Optionen und dem ausgeklappten Projekt in der Projektverwaltung rechts kann ich das aber nicht mit Sicherheit sagen.