Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 05-02-2007
Pandre Pandre is offline
Miembro
 
Registrado: may 2003
Ubicación: San Bartolomé de la Torre, Huelva (España)
Posts: 35
Poder: 0
Pandre Va por buen camino
Y agregando un poco más, si lo que quieres es guardar información binaria, puede usar el TFileStream o TMemoryStram...


Código Delphi [-]
// ESCRITURA

procedure TForm1.Button2Click(Sender: TObject);
var
  FSArchivo: TMemoryStream;
  Numero: integer;
  Caracter: char;
begin

  Numero := 1234;
  Caracter := 'a';

  try
    FSArchivo := TMemoryStream.Create();
    FSArchivo.Position := 0;

    FSArchivo.Write(Numero, sizeof(integer));
    FSArchivo.Write(Caracter, sizeof(char));

    FSArchivo.SaveToFile('c:\archivo.ext');

  finally
    FSArchivo.Free;
  end;
end;

// LECTURA

procedure TForm1.Button3Click(Sender: TObject);
var
  FSArchivo: TMemoryStream;
  Numero: integer;
  Caracter: char;
begin

  try
    FSArchivo := TMemoryStream.Create();
    FSArchivo.LoadFromFile('c:\archivo.ext');
    FSArchivo.Position := 0;

    FSArchivo.Read(Numero, sizeof(integer));
    FSArchivo.Read(Caracter, sizeof(char));

  finally
    FSArchivo.Free;
  end;

  ShowMessage(inttostr(Numero));
  ShowMessage(Caracter);

end;


Saludos...
__________________
Un cordial saludo.

~~~~~~~~~~~~~~~~~~
José A. Gómez Martín
[email protected]
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Como crear Archivos EDI Capo Varios 3 27-04-2007 23:44:55
Crear Archivos de Texto desde C# en PDA MRSAM .NET 2 18-01-2007 16:43:25
como crear archivos de instalacion pollo_c Varios 2 21-12-2006 10:36:43
crear archivos esquema *.sch KmoCuesta Tablas planas 0 16-09-2005 21:48:05
Crear tumbnails de archivos de video carlosmoralesm Gráficos 2 07-05-2004 23:35:00


La franja horaria es GMT +2. Ahora son las 21:59:57.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi