Philips Hue Lampen ansteuern

[borstenei]

Hallo,
Ich habe mich nach dieser Videoanleitung :
https://www.youtube.com/watch?v=35UgMpZtr20
auch mal an die Ansteuerung meiner Philips Hue Lampen gemacht.Hab mal versucht ein kleines Testprojekt nachzubauen.
Leider erhalte ich immer eine Fehlermeldung( siehe Bild) .
Gebe ich die BaseURL:
http://www.meethue.com/api/nupnp
im Browser ein erhalte ich eine Antwort.
Ja gut dann habe ich in meinem kleinen Testprogramm etwas falsch gemacht, also das Demo von Emba heruntergeladen und siehe da beim testen
erhalte ich die selbe Fehlermeldung.
Ersetze ich die BaseURL im RestClient mal durch eine andere Anforderung , erhalte ich auch eine Antwort.
Getestet habe ich das ganze mit Delphi 10.
Könnte jemand mal die Demo testen ? Bzw. mir auf die Sprünge helfen ?

[mkinzler]

Es wird auf ein nicht instantiiertes Objekt zugegriffen.

[borstenei]

..aber warum funktioniert das Programm im Video ? ich habe an dem DemoProject doch nichts verändert..:shock:

[mkinzler]

Poste doch mal den Code Deines Testprojekts

[borstenei]

Da ist nicht viel zu posten..
hier mal der Auszug aus dem Emba Demo:

Delphi-Quellcode:

procedure TForm5.FindHueButtonClick(Sender: TObject);
var
  HueBridgeIndex: Integer;
begin
  // find HUE Bridge - if there is one - there may be more
  HueBridgeComboBox.Clear;
  FindHueRESTRequest.Execute;   // hier tritt der Fehler auf
  Memo1.Lines.Add(FindHueRESTResponse.Content);
  // populate
  if FindHueClientDataSet.RecordCount > 0 then begin
    for HueBridgeIndex := 0 to FindHueClientDataSet.RecordCount-1 do begin
      HueBridgeComboBox.Items.Add(
        FindHueClientDataSet.FieldByName('internalipaddress').AsString
      );
      Memo1.Lines.Add('HueBridge: '+HueBridgeComboBox.Items[HueBridgeIndex])
    end;
    HueBridgeComboBox.ItemIndex := 0;
    GetHueInfoButton.Enabled := true;
    GetLightsInfoButton.Enabled := true;
    AllLightsButton.Enabled := true;
  end
  else
    Memo1.Lines.Add('Hue Bridge not Found!')
end;

[mkinzler]

Besitzt FindHueRESTRequest eine gültige Referenz?

[borstenei]

Wie gesagt es ist die unveränderte Demo aus dem Video.
Ersetze ich die BaseURL im RestClient mal durch eine andere URL erhalte ich eine Antwort im Memo und keine Fehlermeldung.

[borstenei]

Darf ich das Emba Demo hier mal anhängen ? oder verstößt dass gegen irgendwelche Regeln ?

[mkinzler]

Du kannst auch den Link zu dem Sourcecode des Demos posten.

[borstenei]

http://cc.embarcadero.com/item/29699

[mkinzler]

Bei mir vermisst er beim Kompillieren zwar eine Komponente, die bei Dir fehlerhafte Funktionalität läuft aber ohne die Exception durch.

[borstenei]

Vielen Dank für Deine Mühe! Aber wo muss ich jetzt ansetzen um das zum laufen zu bekommen?
Ich habe das heute auf 5 verschiedenen Rechner mit Windows 7 getestet überall das selbe Ergebnis.
Kannst Du die Exe hier mal hochladen?

[mkinzler]

Natürlich

[borstenei]

Vielen Dank! Deine exe funzt.
Das Problem ist das ich keine Ahnung habe wo ich jetzt Ansetzen soll um den Fehler zu finden.

[mkinzler]

Hast Du irgendetwas am Quellcode geändert?

[borstenei]

Nein absolut nichts.
Ich habe ein Delphi 10 ohne Updates , kann es daran liegen ? Allerdings wäre es dann traurig wenn es ohne Update nicht funktioniert.

[mkinzler]

Ich habe Update 1.

Vielleicht hängt es mit diesem Fehler zusammen: https://quality.embarcadero.com/browse/RSP-12685

[Der schöne Günther]

Ich habe für mich vor ein paar Monaten auch etwas für meine Hue-Lampen gemacht, mit XE7 ging auch alles.

Meine XE10-Testumgebung hat mittlerweile auch Update 1 erfahren. Kann ich trotzdem irgendwie helfen?

[borstenei]

Es liegt/lag doch am fehlenden Update1.
Vielen Dank für Hilfe.
Gruß Borstenei

[mkinzler]

Helfen die Workarounds wie im JIRA-Eintrag beschrieben?

[borstenei]

Leider nein ,hatte es wie in dem Betrag mit Ausklammern versucht aber ohne Erfolg.
Dann hatte ich die entsprechende .pas und die .dcu's aus einem Delphi mit Update 1 ersetzt , dass hat es auch noch nicht gebracht.
Erst der Ersatz der Ordner "Source" und "Lib" brachte das gewünschte Ergebnis.
Ich frage mich warum der FIX nicht in Form von einzelnen Dateien erfolgen kann , anstatt jedes mal ein 7gb großes Update zu installieren ?