Hallo zusammen,
vielleicht könnt Ihr mir helfen, ich möchte einen Code von Delphi 7 auf 10 migrieren,
es hapert lediglich an einer Sache, und das geht nicht nur mir so.
Indy.post funktioniert in Delphi 7 wie folgt:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| procedure TForm1.Post;
Var
Params : TStringStream;
Url : String;
begin
Params := TStringStream.create('');
Params.WriteString('TA=1');
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
Url:='http://127.0.0.1:8181';
try
Memo1.Text:=IdHttp1.Post(Url, Params);
except
...
end; |
Ich sende von meiner Applikation einen Post mit dem Wert "1" an eine andere App auf dem gleichen PC die auf Port 8181
empfängt, wenn "1" empfangen wird führt die App eine Routine aus. Das Ganze ist natürlich fürs Netzwerk gedacht von PC
1 zu PC2 usw...
In Delphi 10 kriege ich das allerdings nicht zum Laufen, der Post geht einfach nicht raus. Port ist offen, ein anderes Programm
sendet über den Port und es kann auch empfangen werden. Muss ich hier in Delphi 10 am Code etwas ändern?
Danke für Eure Hilfe!!
Markus
Moderiert von 
Narses: Delphi-Tags hinzugefügt
