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