Ayuda con cliente/servidor (sockets)

[Neftali [Germán.Estévez]]

¿Has revisado los ejemplos que vienen con Delphi? ¿Exactamente qué necesitas? ¿Has probado algo? ¿No te funciona?

[vejerf]

Hola Neftali,
Hace un tiempo me hice un ejemplito con sockets, pero ya no me acuerdo bien de como lo hice. Por otra parte no encuentro los ejemplos que me comentas (uso BDS2006).
Para empezar simplemente estoy creando una conexion e intento enviar datos del servidor al cliente, pero no lo consigo. La conexión sí que se realiza, pero después no sé por qué no consigo leer los datos que supuestamente estoy enviando al cliente. Me podrías poner un ejemplito simplemente con la lectura/escritura de un cliente/servidor??? De ahí podría partir bien creo
Gracias!!!

[Neftali [Germán.Estévez]]

A ver, he buscado el primer ejemplillo que tenía a mano y en ese en concreto utilizo esta función:

Código Delphi [-]
//: Permite enviar un comando a un Socket.
function SendCommand(ASocket: TCustomWinSocket; ACommand:  TSocketCommand;
                     AParams: array of string):Boolean;
var
  Str, StrParams:String;
  i:Integer;
begin

  // Por defecto...
  Result := False;
  StrParams := '';

  // Está activo?
  if (ASocket.Connected) then begin

    Debug.LogSocket('Enviando comando: ' + SocketCommandToStr(ACommand));

    // Recorrido
    for i := Low(AParams) to High(AParams) do begin
      StrParams := StrParams + Aparams[i] + CHAR_MESSAGE_SEP;
      Debug.LogSocket('  ' + Aparams[i]);
    end;

    // enviar comando...
    Str := SocketCommandToStr(ACommand);
    // Añadir parametros
    Str := Str + StrParams;
    // enviar
    ASocket.SendText(Str);
    Result := True;
  end;
end;

A parte de las líneas de Debug (que es para una herramienta interna) y el SocketCommandToStr (que lo único que hace en convertir un enumerado en String), como ves básicamente lo que hago es usar:

ASocket.SendText(Str)