Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Uso de TFileStream (https://www.clubdelphi.com/foros/showthread.php?t=20217)

esocrates 08-04-2005 18:59:17

Uso de TFileStream
 
He encontrado en algunos hilos del Foro la recomendación de usar la clase TFileStream para manejo de archivos. No tengo información de cómo se usa esta clase.
¿Me podrían dar algún ejemplo que muestre los elementos fundamentales de su uso , o indicarme dónde hallarlo?
Un saludo y hasta pronto

delphi.com.ar 08-04-2005 20:24:31

¿Dónde hallar información?... en la ayuda!
Al igual que todos los TStreams, se pueden utilizar accediendo a los métodos básico Create, Read, Write y Seek, como tambien a las propiedades Position y Size.

Dos ejemplos muy sencillos:
Código Delphi [-]
procedure EscribirArchivo(FileName: TFileName; S: string);
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmCreate);
  try
    Stream.WriteBuffer(Pointer(S)^, Length(S));
  finally
    Stream.Free;
  end;
end;

function LeerArchivo(FileName: TFileName): string;
var
  Stream: TStream;
begin
  Stream := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
  try
    SetString(Result, nil, Stream.Size);
    Stream.Read(Pointer(Result)^, Stream.Size);
  finally
    Stream.Free;
  end;
end;

Saludos

esocrates 08-04-2005 22:27:09

Muchas gracias delphi.com.ar. Voy a estudiar tus ejemplos.
Un saludo

NeWNeO 09-04-2005 16:26:07

Stream64
 
Si te interesa, en http://www.rawos.com/sw/downloads/Stream64.zip puedes encontrar un Stream con el que puedes cargar como máximo un archivo de 4gb en un FileStream. Funciona igual como te han explicado antes. Es Freeware pero no viene con source code
(... 2. LICENSE AGREEMENT

You can use this SOFTWARE PRODUCT like a freeware.
You may not copy only a part of the SOFTWARE PRODUCT,
but you must always copy entire SOFTWARE PRODUCT. ...)

esocrates 09-04-2005 23:47:17

Muchas gracias NeWNeO, pero buscaba código para estudiar.
Un saludo y hasta pronto.


La franja horaria es GMT +2. Ahora son las 02:09:55.

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