Hola a todos.

Tengo una pregunta de novato.
Recibo información a través de un puerto COM, y debo de ir guardándola en un
fichero .txt para que cualquier programita de texto lo pueda leer.

Lo que hago es cargar todo en un memo, y al final de la transmisión lo
vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
información a medida que va llegando

¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
incrementando a medida que llega la información?

Gracias adelantadas por vuestros consejos.

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en un
> fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

¡Dos o tres millones de gracias!

"Discreto" <ftp777***terra.es> escribió en el mensaje
news:EQW8i.21876$iI.17761***fe49.usenetserver.com...
Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en
> un fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

¡Dos o tres millones de gracias!

"Discreto" <ftp777***terra.es> escribió en el mensaje
news:EQW8i.21876$iI.17761***fe49.usenetserver.com...
Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en
> un fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================

¡Dos o tres millones de gracias!

"Discreto" <ftp777***terra.es> escribió en el mensaje
news:EQW8i.21876$iI.17761***fe49.usenetserver.com...
Profesor Fate escribió:
> Hola a todos.
>
> Tengo una pregunta de novato.
> Recibo información a través de un puerto COM, y debo de ir guardándola en
> un fichero .txt para que cualquier programita de texto lo pueda leer.
>
> Lo que hago es cargar todo en un memo, y al final de la transmisión lo
> vuelco a un fichero txt, pero ahora me piden que se vaya guardando al
> información a medida que va llegando
>
> ¿Como puedo hacerlo en tiempo real de forma que el fichero .txt se vaya
> incrementando a medida que llega la información?
>
> Gracias adelantadas por vuestros consejos.
>

Yo lo hago asi, no es exactamente lo que quieres pero con una minima
modificacion te funcionara.

function TForm1.SendToLogTxt(cTexto: string): Boolean;
var
FLog: TFileStream;
cMyTxt, cFile: string;
begin
cFile := GetCurrentDirectory +'\ProcKernel.txt';
Result := False;

// Abre el archivo de registro
try begin
if FileExists(cFile) then begin
FLog := TFileStream.Create(cFile, fmOpenReadWrite +fmShareExclusive);
FLog.Position := FLog.Size; // Ir al final del archivo
end else begin // No existe: crearlo.
FLog := TFileStream.Create(cFile, fmCreate);
cMyTxt := 'Registrado el Tick Perfil Onda A fecha Estado'
+' Precio Dif. P1 P2 TimeCPU
Modo' +#10;
cMyTxt := cMyTxt +Replicate(108, '-') +#10;
FLog.WriteBuffer(Pointer(cMyTxt)^, Length(cMyTxt))
end;

FLog.WriteBuffer(Pointer(cTexto)^, Length(cTexto));
FLog.Free;
end
except end;
end; // function SendToLogTxt(
================================================