8 replies to this topic

[Kipow]

Mi idea es poder crear un archivo de texto pero no fisicamente en disco sino que en memoria, luego subirlo a un ftp y obviamente liberar la memoria. sera esto posible?

Saludos

[egostar]

Hola

Encontré esto que pides pero está en C# si te sirve te tocará migrarlo a Delphi

Enviar un Stream por FTP

Salud OS

[seoane]

Ya se que conoces los TMemoryStream y como enviarlos por ftp, así­ que supongo que la duda es como escribir strings dentro del TMemoryStream. Pues aquí­ te dejo dos alternativas de como hacerlo.

Opción 1:

delphi

var
  Str: TStringList;
  Mem: TMemoryStream;
begin
  Str:= TStringList.Create;
  try
    Str.Add('Linea 1');
    Str.Add('Linea 2');
    Str.Add('Linea 3');
    Mem:= TMEmoryStream.Create;
    try
      Str.SaveToStream(Mem);
      // Aqui haz lo que quieras con el TMemoryStream, por ejemplo
      Mem.SaveToFile('f:\1.txt');
    finally
      Mem.Free;
    end;
  finally
    Str.Free;
  end;
end;

Opción 2:

delphi

procedure WriteStringToStream(Stream: TStream; Str: String);
begin
  Str:= Str + #13#10; // Salto de linea
  Stream.WriteBuffer(PChar(Str)^,Length(Str));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Mem: TMemoryStream;
begin
  Mem:= TMEmoryStream.Create;
  try
    WriteStringToStream(Mem,'Linea 1');
    WriteStringToStream(Mem,'Linea 2');
    WriteStringToStream(Mem,'Linea 3');
    // Aqui haz lo que quieras con el TMemoryStream, por ejemplo
    Mem.SaveToFile('f:\2.txt');
  finally
    Mem.Free;
  end;
end;

Este ultimo método es valido pata todas las versiones de delphi excepto para la ultima (2009) ya que en esta versión un carácter de una cadena puede ocupar mas de un byte.

[Kipow]

Gracias a los 2 por contestar, muchas gracias Seoane creo que la primera me cae de perlas.

Saludos

[eduarcol]

Hola a todos, perdon por revivir el hilo pero es lo que necesito:

Tengo un sistema que se comnica con la impresora fiscal samsung bixolon, tiene un año trabajando muy bien.  El asunto es que ahora me piden que grabe el numero de la factura en la impresora fiscal al momento de la impresion, ok hasta aqui todo bien ya que eso lo supe hacer.  El comando que me lo permite es:

function UploadStatusCmd(status:Pointer;error:Pointer;cmd:string): boolean; stdcall external 'tfhkaif.dll';

Lo que pasa es que el escribe la información en un archivo, como se podria hacer para que ese archivo no se grabe en el disco sino que permanezca en memoria?? hay forma de hacerlo??

[cHackAll]

...escribe la información en un archivo, como se podria hacer para que ese archivo no se grabe en el disco sino que permanezca en memoria?? hay forma de hacerlo??

Hace unos meses solucione un problema similar haciendo un hook sencillo a la API WriteFile, obviamente dicho hook solo debe aplicarse a al proceso propio.

[eduarcol]

ok, interesante punto de vista, voy a intentarlo 

[cHackAll]

ok, interesante punto de vista, voy a intentarlo 

Qué es lo que buscas? que no se cree el archivo, que no se escriba la informacion... o capturar la informacion?

[eduarcol]

ok, interesante punto de vista, voy a intentarlo 

Qué es lo que buscas? que no se cree el archivo, que no se escriba la informacion... o capturar la informacion?

Recibir la información, pero sin crear el archivo.   tengo pendiente probar lo de la hook