es verdad!!! gracias...
No os lo vais a creer pero sigo teniendo problemas
Seoane lo que me has recomendado me ha parecido genial pero ahora estoy intentando añadir un pchar a otro de la siguiente manera y no lo consigo:
Código Delphi
[-]
repeat
Application.ProcessMessages;
GetMem(Cabecera,256);
GetMem(Bufferaux,3072);
try
Fillchar(bufferaux^,2304,0);
Cabecera:=PChar(formatFloat('0000',length(buffer))+ 't');
StrCopy(Bufferaux,Cabecera);
Aux:=Bufferaux + StrLen(Bufferaux) +1;
move(buffer^,Aux^,sizeof(buffer));
ClientSocket2.Socket.SendBuf(BufferAux^,SizeOf(BufferAux));
finally
FreeMem(Cabecera);
FreeMem(Bufferaux);
end;
leidos:=stream.Read(buffer^,SizeOf(buffer));
until(leidos=0);
stream.Free;
En BufferAux solo tengo el valor de la cabecera, pero no me añade el de buffer. Lo he comprobado paso a paso y en buffer si mete contenido...me estoy montando unos lios...Perdonar por ser tan pesao