| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
 Publicado: Mie 07 Dic, 2005 10:20 pm Asunto: Traducir de Pascal a C... porfa, es que no tengo ni idea |
 |
|
sobre todo por lo de #10 y esas cosas
Memo1.SelStart := Memo1.GetTextLen;
Memo1.SelText := Fetch(Tmp, #13) + #13#10;
if (Tmp <> '') and (Tmp[1] = #10) then Delete(Temp, 1, 1);
gracias |
|
| Volver arriba |
|
 |
Touchsoftwares
Master
Registrado: 16 Dic 2002Mensajes: 869Ubicación: MEXICO Playa del Carmen
|
| Publicado: Mie 07 Dic, 2005 10:32 pm Asunto: |
|
|
Mira no pude traducir tu codigo, pero te pongo una funcion que hice..
| Código: |
AnsiString sCadena="Pelos";
sCadena=sCadena+SecuenciaEscape("010");
|
| Código: |
//--------------------------------------------------
AnsiString SecuenciaEscape(AnsiString sCadena)
{
char *cadena;
cadena=sCadena.c_str();
int iLong=sCadena.Length();
int indice=1;
int i=0;
for(i=0;i<(iLong/3);i++)
{
AnsiString x=sCadena.SubString(indice,3);
int ix=x.ToInt();
cadena[i]=ix;
indice=indice+3;
}
cadena[i+1]=' ';
cadena[i]='\0';
// ShowMessage((AnsiString)cadena);
return (AnsiString)cadena;
}
|
_________________
Ing. Gabriel Góngora Navarrete
TouchSoftwares Inc
http://www.touchsoftwares.com |
|
| Volver arriba |
|
|
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
| Publicado: Mie 07 Dic, 2005 10:35 pm Asunto: |
|
|
hola, muchas gracias de verdad
ahora es que no se, pero tengo que utilizar la funcion para el Buffer que me da el IdTelnet en el evento IdTelnet1DataAvailable para que me pinte todo bien en el Memo.
Me puedes ayudar un poco mas porfa? |
|
| Volver arriba |
|
|
LordNemesis
Master
Registrado: 31 Dic 2003Mensajes: 340Ubicación: México
|
| Publicado: Jue 08 Dic, 2005 6:19 pm Asunto: |
|
|
Pascal:
[Delphi]
Memo1.SelStart := Memo1.GetTextLen;
Memo1.SelText := Fetch(Tmp, #13) + #13#10;
if (Tmp <> '') and (Tmp[1] = #10) then Delete(Temp, 1, 1);
[/code]
BCB
| Código: |
Memo1->SelStart = Memo1->GetTextLen();
Memo1->SelText = Fetch(Tmp,char(13))+char(13)+char(10);
if((Tmp!='')&&(Tmp[1]==char(10))
Delete(Temp,1,1);
|
_________________
Dirección Municipal de Informática
H. Ayuntamiento de Tijuana
Arriba Lopez Obrador !!!
Los Mexicanos Merecemos Respeto !!! |
|
| Volver arriba |
|
|
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
| Publicado: Vie 09 Dic, 2005 11:17 pm Asunto: |
|
|
Muchas gracias,
esto me hacia mucha falta, pero es que yo pensaba que el problema era por no poner este codigo traducido, pero al ponerlo, me sigue pasando lo mismo y es que el componente TIdTelnet (en el evento OnDataAvailable) me da el buffer incompleto (como con 2 o tres lineas) y en realidad son muchas mas ya que con ortro programa de telnet que he probado al conectar a un sitio pone textos de bienvenida y eso, y el mio se queda como parado.
Espero haberme explicado bien, gracias |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
