FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
la variable TStream
disculpen x la molestia, pero necesito ayuda cn esto, stoy haciendo un proyecto acerca de sockets y conexion clients-server y necesito enviar archivos pude hacerlo como el componente opendialog de delphi que me permite seleccionar directament el archivo, pero queria saber si podria crear mi variable TfileStream directament con la direccion o directorio del archivo,el Filename y size,(lo cual puedo obtener con otras funciones) manualmente. porfaaa necesito ayuda...no es mi area la programacion por que soy de redes y telecomunicaciones pero me encantoo programar y quisiera presentar este proyecto,pues me encanto esta area.
aqui le dejo el codigo de como lo hago con el opendialog OpenDialog1.Filter := 'All Files (*.*)'; // you can add more choices by adding | and followed by description and (*.extension) OpenDialog1.FilterIndex := 1; // Here you follow which index number from above you want if OpenDialog1.Execute then begin Edit1.Text := ExtractFileName(OpenDialog1.FileName); // To send as filename after ClientSocket1.Socket.SendText('FILE!'+Edit1.Text); sleep(2000); // Need to sleep so the other end has time to process the commands Streamsize := TFileStream.Create(OpenDialog1.FileName, fmopenread); // Stream created just to Calculate size Edit2.Text := inttostr(Streamsize.Size); Sleep(2000); ClientSocket1.Socket.SendText('SIZE!'+Edit2.Text); // Sends filesize through primary socket Streamsize.Position := 0; Streamsize.Free; sleep(2000); ClientSocket2.Address := Edit3.Text; ClientSocket2.Open; // ready to send file on second socket if ClientSocket2.Socket.SendStream(TFileStream.Create(OpenDialog1.FileName, fmopenRead)) then memo1.Lines.Add('File Sent'); // above creates a stream and sends as a stream its in a if line because this is the only way it will automatically check the byte order and send the whole stream end; |
#2
|
||||
|
||||
Hola shekinax_007, bienvenido a Club Delphi
Como a todos los que ingresan te invitamos a que leas nuestra guía de estilo. Por favor, cuando incluyas código en tus mensaje usa los TAG's, se usan de este modo: Saludos.
__________________
Daniel Didriksen Guía de estilo - Uso de las etiquetas - La otra guía de estilo .... |
#3
|
|||
|
|||
ok! perdon ya mismo lo hagooo
|
#4
|
|||
|
|||
aqui esta mi codigo
aqui esta el codigo
la variable Stramsize es una variable global de mi unit.
|
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Liado con TStream, TmemoryStream y TFileStream | madiazg | Varios | 1 | 01-12-2012 14:55:11 |
Duda con TStream.Readbuffer | miguel_e | Varios | 2 | 04-01-2006 19:31:10 |
Cargar Tstream de donde? | zugazua2001 | Varios | 1 | 30-07-2005 14:44:35 |
¿Dónde va a parar el contenido de un TStream? | DarkByte | Internet | 10 | 30-01-2004 20:42:55 |
Modificar tStream | aig | OOP | 14 | 27-06-2003 09:09:29 |
|