Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Internet
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-01-2010
vicoxl16 vicoxl16 is offline
Registrado
 
Registrado: abr 2009
Posts: 4
Poder: 0
vicoxl16 Va por buen camino
Thumbs up Necesito Ayuda

Hola ,bueno quisiera que alguien me ayude a pasar este codigo a java



Código:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;Socket: TCustomWinSocket);
label kezd,vege;
var
y:word;
delimiter:word;
Msg:TKoMsg;
begin
if Socket.ReceiveLength=0 then exit;
kezd:
Socket.ReceiveBuf(delimiter,2);    //$55AA
Socket.ReceiveBuf(y,2);        //length
Msg:=TKoMsg.Create;
Msg.Sender:=TPlayer(Players.Objects[Players.IndexOf(IntToStr(Socket.Handle))]);
Msgs.Add(Msg);
SetLength(Msg.Arr,y);
Socket.ReceiveBuf(Msg.Arr[0],y);
Socket.ReceiveBuf(delimiter,2);    //$AA55
if y=0 then
goto vege;
vege:
if Socket.ReceiveLength>0 then
goto kezd;
PostMessage(Handle,WM_PROCESS,0,0);
end;
Responder Con Cita
  #2  
Antiguo 03-01-2010
cocute cocute is offline
Miembro
 
Registrado: nov 2008
Posts: 403
Poder: 16
cocute Va por buen camino
puedes probar con algun programa tipo este:
http://www.re-coding.com//try.php
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Necesito ayuda Maria85 Internet 15 27-01-2009 20:22:06
Necesito Ayuda kary Varios 3 09-10-2008 23:31:44
Necesito ayuda RoyTan Conexión con bases de datos 1 27-08-2006 07:23:15
Necesito ayuda!! DiRHoP Varios 7 16-09-2005 03:44:42
Necesito ayuda en c++ caferd5 C++ Builder 2 23-05-2005 08:35:13


La franja horaria es GMT +2. Ahora son las 10:06:26.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi