Exception bei FMX IntputBox

[Perlsau]

Danke, Daniel

Kann man denn in FMX InputBox wirklich als vierten Parameter eine Procedure übergeben? Denn immerhin besagt doch die Fehlermeldung, daß keine überladene Version von InputBox existiert, die man mit diesen Parametern aufrufen könnte. Oder sollte die Procedure etwa anschließend aufgerufen werden?

Mit meinem D2009 kann ich das natürlich nicht nachprüfen, ich hatte mich einzig an die Online-Hilfe gehalten. Okay, ich halte mich da jetzt raus, es gibt genügend gewiefte FMX-Entwickler hier, die sicher mehr dazu schreiben können als ich

[Sir Rufo]

1. [DCC Fehler] MiniDOMain.pas(528): E2555 Symbol 'Result' kann nicht erfasst werden
2. [DCC Fehler] MiniDOMain.pas(1594): E2250 Es gibt keine überladene Version von 'InputBox', die man mit diesen Argumenten aufrufen kann.

Zu 1. können wir etwas sagen, aber zu 2. können wir nichts sagen, denn den Source hast du uns nicht gezeigt.

Zu 1.

Delphi-Quellcode:

   InputBox('Machine ID: '+ MachineID, 'Release Code',CodeStr,
       procedure(const AResult: TModalResult; const AValue: string)
        begin
            case AResult of
            mrOk:
                begin
                  // AValue is the result of the inputbox dialog
                  HexToBuffer(AValue, SpecialCode, SizeOf(SpecialCode));
                   if IsSpecialCodeValid(ModKey, SpecialCode) then
                      { Man kann hier auf Result nicht zugreifen }
                      Result := GetSpecialCodeValue(ModKey, SpecialCode);
                end;
              mrCancel:
                begin
                end;
           end;
    end
      );

@Perlsau

Dein Link zeigt auf die Doku von XE5 und da gab es das noch nicht. Die Doku der aktuellen Version zeigt auch die Überladungen.

http://docwiki.embarcadero.com/Libra...alogs.InputBox

Ich finde in dem Beitrag aber auch keinen Hinweis auf die verwendete Delphi Version

[jeng37]

Vileicht hilft das weiter?
Ich habe versucht dieses umzuschreiben so dass es halt auf Android läuft.

Original code für Windows:

Delphi-Quellcode:

if InputQuery('Machine ID: '+ MachineID ,
       'Release Code', CodeStr) then begin
    HexToBuffer(CodeStr, SpecialCode, SizeOf(SpecialCode));
    if IsSpecialCodeValid(ModKey, SpecialCode) then
      Result := GetSpecialCodeValue(ModKey, SpecialCode);
  end;

@Sir Rufo
Wenns weiter Hilft, ich benutze zur Zeit XE8 Trial

[Sir Rufo]

Manchmal hilft es, wenn man in ganzen Sätzen spricht.

Ein paar Codezeilen aus dem Zusammenhang gerissen sind kein ganzer Satz.

Vermutlich sieht es so aus

Delphi-Quellcode:

function foo() : integer;
begin
  if InputQuery(
    {} 'Machine ID: ' + MachineID,
    {} 'Release Code', 
    {} CodeStr) 
  then 
    begin
      HexToBuffer( CodeStr, SpecialCode, SizeOf( SpecialCode ) );
      if IsSpecialCodeValid( ModKey, SpecialCode ) then
        Result := GetSpecialCodeValue( ModKey, SpecialCode );
    end; 
end;

Speziell unter Android funktioniert das aber so generell nicht, denn die Doku sagt ja, dass InputBox unter Android nicht blockierend ist.

Also kommt dein Funktionsaufruf zurück, obwohl die InputBox noch angezeigt wird und es ja noch kein Ergebnis gibt.

Und wenn es ein Ergebnis gibt ... wohin soll das Result denn geliefert werden? An einen Funktionsaufruf, der schon längst ein Gewesener ist.

Du musst dein Konzept umstellen.

Zitat von jeng37:

@Sir Rufo
Wenns weiter Hilft, ich benutze zur Zeit XE8 Trial

Da die Versionen sich schon recht stark unterscheiden (wie man sieht) ist es sehr hilfreich die konkrete Delphi-Version zu wissen um eine konkrete Antwort geben zu können.

Information does matter

[jeng37]

Oh, Sorry
Ich meinte dass der Code Schnipsel genug Info währe.
Der Vollständigkeit halber dann hier der ganze Code.

Delphi-Quellcode:

function TMiniDOForm.DecodeSpecialCode : Longint;
var
  CodeStr   : string;
  ModKey    : TKey;
  MachineID : string;
  Modifier  : longint;

begin
  Result := 0;
  MachineID := '';
  Modifier := GenerateMachineModifierPrim;
  MachineID := BufferToHex(Modifier, SizeOf(Modifier));
  ModKey := TheKey;
  ApplyModifierToKeyPrim(Modifier, ModKey, SizeOf(ModKey));
  {First see if existing Special code is valid}

  if IsSpecialCodeValid(ModKey, SpecialCode) then begin
    Result := GetSpecialCodeValue(ModKey, SpecialCode);
    Exit;
  end;

  {Otherwise prompt user for Special code}

  CodeStr := '';
  {$IFDEF MSWINDOWS}
 if InputQuery('Machine ID: '+ MachineID ,
       'Release Code', CodeStr) then begin
    HexToBuffer(CodeStr, SpecialCode, SizeOf(SpecialCode));
    if IsSpecialCodeValid(ModKey, SpecialCode) then
      Result := GetSpecialCodeValue(ModKey, SpecialCode);
  end;
  {$ENDIF MSWINDOWS}

  {$IFDEF ANDROID}
   InputBox('Machine ID: '+ MachineID, 'Release Code',CodeStr,
       procedure(const AResult: TModalResult; const AValue: string)
        begin
            case AResult of
            mrOk:
                begin
                  // AValue is the result of the inputbox dialog
                  HexToBuffer(AValue, SpecialCode, SizeOf(SpecialCode));
                   if IsSpecialCodeValid(ModKey, SpecialCode) then
                      Result := GetSpecialCodeValue(ModKey,  SpecialCode);
                end;
              mrCancel:
                begin
                end;
           end;
    end
      );
   {$ENDIF ANDROID}
end;

[Sir Rufo]

Da wirst du dir ein anderes, sauberes Konzept ausdenken müssen. Eine Vermischung von UI und Logik war noch nie sauber.