Mensajes

[Delphi 7 ,perdona por no poner todos los datos ,Saludos]

Delphi 7 ,perdona por no poner todos los datos  ,

Saludos

[Si se puede podes transportalo , una ves que sacaste el archivo SAM , de la maquina yo creo que tengo un manual pero no se como mandartelo :sSalud y exitos]

Si se puede podes transportalo , una ves que sacaste el archivo SAM , de la maquina yo creo que tengo un manual pero no se como mandartelo :s

Salud y exitos

[Lo que pasa es que algunas veces en batch los comandos pueden fallar y te dejaria sin la info que queres recibir, imaginate si lo que vos "infectas" tiene windows vista que tiene muchos errores o windows seven que cambiaron algunas cosas. Aparte batch es algo como para que puedas ejecutar algunos procesos en tu propia pc pero en otras algunas cosas cambian depende de quien reciba la info tambien imaginate que esa info la reciba alguien que sabe apenas un poco de su entorno con solo poner el mouse arriba del archivo, tocar el boton derecho y clickear Editar podria ver lo que queres hacer en su computadora . En cambio en un lenguaje todo es mas seguro , desde mi punto de vista en un lengua de programacion vos creas tus propias reglas de como queres que se hagan las cosas en cambio en batch vas a estas siempre limitado al entorno guindous , no quiero desprestigiar batch la mayoria empesamos por ahi pero lo mejor es aprenderse un lenguaje de programacion . Con respecto a que lenguaje te podria recomendar diria que uses uno que este orientado a objetos , POO, personalmente yo empese programando en batch despues me pase al turbo de pascal y desde que conoci delphi aprendi muchisimas cosas y es muy facil de aprender.Salud y exitos.]

Lo que pasa es que algunas veces en batch los comandos pueden fallar y te dejaria sin la info que queres recibir, imaginate si lo que vos "infectas" tiene windows vista que tiene muchos errores o windows seven que cambiaron algunas cosas. Aparte batch es algo como para que puedas ejecutar algunos procesos en tu propia pc pero en otras algunas cosas cambian depende de quien reciba la info tambien imaginate que esa info la reciba alguien que sabe apenas un poco de su entorno con solo poner el mouse arriba del archivo, tocar el  boton derecho y clickear Editar podria ver lo que queres hacer en su computadora . En cambio en un lenguaje todo es mas seguro , desde mi punto de vista en un lengua de programacion vos creas tus propias reglas de como queres que se hagan las cosas en cambio en batch vas a estas siempre limitado al entorno guindous , no quiero desprestigiar batch la mayoria empesamos por ahi pero lo mejor es aprenderse un lenguaje de programacion . Con respecto a que lenguaje te podria recomendar diria que uses uno que este orientado a objetos , POO, personalmente yo empese programando en batch despues me pase al turbo de pascal y desde que conoci delphi aprendi muchisimas cosas y es muy facil de aprender.

Salud y exitos.

[Hola, antes que nada muchas gracias por responder ,al fin alguien me puede dar una ayuda , bueno la vdad no tengo la menor idea de como manejar esto de enviar y recibir archivos por socket el codigo lo saque de otro foro y fui trantando de entenderlo ejecutandolo varias veces y cambiandole algunas cosas. Te dejo el codigo que envia el archivo:]

Hola, antes que nada muchas gracias por responder ,al fin alguien me puede dar una ayuda , bueno la vdad no tengo la menor idea de como manejar esto de enviar y recibir archivos por socket el codigo lo saque de otro foro y fui trantando de entenderlo ejecutandolo varias veces y cambiandole algunas cosas. Te dejo el codigo que envia el archivo:

Código (delphi) [Seleccionar] Expandir

procedure TForm1.Button1Click(Sender: TObject);
var
strm:TMemoryStream;
begin
strm:=TMemorystream.Create;
strm.LoadFromFile('C:\Pruebaa.txt');
clientsocket1.Socket.SendText('TOMA');
clientsocket1.socket.SendStream(strm);
end;

Teniendo el archivo una extension .txt el code transporta el archivo bien sin ningun error pero cuando intento combiar la extension a .exe (un ejecutable) el archivo se crea pero vacio.

Bueno espero que me puedas ayudar
saludos.

[Hola muy buenas gente este es mi primer post en el foro espero que me puedan ayudar (: .]

Hola muy buenas gente este es mi primer post en el foro espero que me puedan ayudar (: .
tengo este codigo que sirve para que mi cliente socket en delphi reciba un archivo lo entiendo poco, pero igualmente funciona bien con archivos de texto. Se trata de una conexion con de socket normal que trae delphi , el servidor recibe bien archivos de texto (.txt) pero el problema lo tengo cuando quiero mandar un ejecutable, el servidor lo recibe pero vacio :s osea 0 kb  la verdad no tengo la menor idea de cual puede ser el problema alguien me podria dar una mano? en cual es el error o el problema? se lo agradeceria mucho ya que estoy estancado en mi programa por este problema :s les dejo el codigo:

Código (delphi) [Seleccionar] Expandir

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
 Socket: TCustomWinSocket);
var
 size: Integer;
 strcom, com:string;
 nreceived,i:integer;
 Stream:  TMemoryStream;
 buffer: array  [0..99999] of char;
begin
strcom:=Socket.ReceiveText;
if pos('TOMA',strcom)=1 then
 begin
       Stream := TMemoryStream.Create;
       Screen.Cursor := crHourglass;
       try
         while True do
         begin
           nReceived := Socket.ReceiveBuf (Buffer, sizeof (Buffer));
           if nReceived <= 0 then
             Break
           else
             Stream.Write (Buffer, nReceived);
           Sleep (200);
         end;
         Stream.Position := 0;
         stream.SaveToFile('C:\Prueba.txt');
       finally
         Stream.Free;
         Screen.Cursor := crDefault;
       end;
 end;
Bueno espero que alguien me pueda ayudar
gracias y saludos