Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Eigener TCP-Server+PHP-Script (https://www.delphipraxis.net/79391-eigener-tcp-server-php-script.html)

Florian_Meyer 21. Okt 2006 15:54


Eigener TCP-Server+PHP-Script
 
Hallo,

ich habe mir ein kleines Progrämmchen geschrieben, nen TCP-Server. Wenn ich mich mit nem TCP-Client verbinde und Commands sende, geht es, auch, dass ich eine antwort bekomme.
Allerdings möchte ich mich jetzt per PHP mit dem TCP-Server verbinden. Klappt soweit auch, ich bekomm auch die Welcome-Message. Aber nun möchte ich n Command (also nen String) zu dem Server senden und danach soll der Server antworten(wie schon geschrieben, das mit dem Antworten klappt, aber nur mit meinem TCP-Client-Pogramm). CommandHandler habe ich angegeben, auch das, was er mir antworten soll.


Weiß einer da ne Lösung?

Mein PHP-Code, der nicht so ganz hinhaut:
Code:

// Einholen der Konfiguration
include("config.php");

// Herstellen der Verbindung zum Wetter-PC
$WeatherSocket = @fsockopen($WeatherHostname,$WeatherPort,$errno,$errstr,$WeatherTimeOut);

// Verbindung herstellen
if($WeatherSocket)
{
   socket_set_timeout($WeatherSocket,$WeatherTimeOut);
   $WeatherData = fread($WeatherSocket,1024);
   echo $WeatherData."
";
   $c = fgetc($WeatherSocket);
   if(!$c)
   {
      $err = "Keine Daten empfangen.";
   }
   else
   {
      fwrite($WeatherSocket, "GetLast");
      $answer = fread($WeatherSocket,1024);
      echo $answer;
   };
   fclose($WeatherSocket);   
}
else
{
   if($errno == 111)
   {
      sleep(1);
      if(!$WeatherSocket)
      {
         echo "Connection Refused";
      };
   }
   elseif($errno == 110)
   {
      echo "timeout!";
   }
   else
   {
      echo $errno;
   };
};
Bin für jede Hilfe dankbar!

MfG
Florian

Florian_Meyer 21. Okt 2006 22:04

Re: Eigener TCP-Server+PHP-Script
 
*push* :roll: :duck:

Valle 22. Okt 2006 00:21

Re: Eigener TCP-Server+PHP-Script
 
Hier wird mit PHP der ICQ-Status mit socekts abgefragt, villeicht hilft dir der Code weiter?!

MfG,

Valle

Florian_Meyer 22. Okt 2006 01:22

Re: Eigener TCP-Server+PHP-Script
 
Thx.
Hatte es jetzt glücklicherweise selbst rausgefunden...aber auf dieser Seite, da ist das auch so gemacht:
undzwar ist am ende der zeile
Code:
."Connection: close\r\n\r\n";
also dort ist noch \r\n und das fehlte bei mir, jetzt klappt alles :-D

lg
Florian


Alle Zeitangaben in WEZ +1. Es ist jetzt 07:41 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz