Danke für deinen Tipp aber leider habe ich das Problem immer noch nicht gelöst. Ich habe das Program nach dem Beispiel aufgebaut, aber leider funktioniert es trotzdem nicht. Die IP-Adresse ist von meinem Computer. Kann dort der Fehler liegen?
Hoffe due kannst mir nochmal einen Tipp geben.
Gruß
PROGRAM Sonos
VAR
url_text : STRING := '
http://localhost/SonosLib/index.php?zone=Bad&action=Play'; URL_DATA : URL;
IP_C: IP_C;
S_BUF: NETWORK_BUFFER;
R_BUF: NETWORK_BUFFER;
IP_CONTROL_1: IP_CONTROL;
DNS_CLIENT: DNS_CLIENT;
HTTP_GET: HTTP_GET;
http_release: BOOL;
enable: BOOL := TRUE;
http_status: STRING;
header_start: UINT;
header_stop: UINT;
body_start: UINT;
body_stop: UINT;
http_get_done: BOOL;
http_get_error: DWORD;
COUNT_DR: COUNT_DR;
cycles: DWORD;
TON_1: TON;
F_TRIG: F_TRIG;
END_VAR
URL_DATA := STRING_TO_URL(url_text,'','');
TON_1(
IN:= http_get_done,
PT:= T#1S,
Q=> http_release
);
f_TRIG(
CLK:=http_get_done,
Q=> enable
);
COUNT_DR(
UP:=http_get_done,
CNT=> cycles
);
IP_CONTROL_1(
IP:= DWORD_OF_BYTE( 192,168,178,44),
TIME_OUT := T#4S,
S_BUF:=S_BUF,
R_BUF:= R_BUF,
IP_C:=IP_C
);
DNS_CLIENT(
ACTIVATE:= enable,
DOMAIN:= URL_DATA.DOMAIN,
IP_C := IP_C,
S_BUF := S_BUF,
R_BUF := R_BUF
);
HTTP_GET(
IP4 := DNS_CLIENT.IP4,
GET := DNS_CLIENT.DONE,
MODE:= 0,
UNLOCK_BUF:= http_release,
URL_DATA := URL_DATA,
IP_C := IP_C,
S_BUF := S_BUF,
R_BUF := R_BUF,
HTTP_STATUS => http_status,
HEADER_START => header_start,
HEADER_STOP => header_stop,
BODY_START => body_start,
BODY_STOP => body_stop,
DONE => http_get_done,
ERROR => http_get_error
);