Durbed
19-06-2007, 11:54:18
En Windows XP hay un fichero que almacena un registro del call id, es decir, a quien llamas y quien te llama a ti, este fichero se encuentra en "C:\Documents and Settings\<usuario>\Configuración local\Datos de programa\Microsoft\Dialer\<usuario>_call_log.txt" El fichero es de esta forma:
"tipo_llamada", "fecha", "hora", "duracion", "Nombre", "Telefono"
El problema es que el fichero aparentemente es normal, pero no funcionaba al leerlo, entonces mire a ver que tenia en hexadecimal y tiene esta pinta:
˙ŝ".t.i.p.o._.l.l.a.m.a.d.a.".,.".f.e.c.h.a.". ...
y ahi es donde esta el problema, pues solo me lee ˙ŝ. Hay alguna forma de pasarlo a un formato decente o leerlo asi sin problemas?
Para leer (bueno para intentar leer) el fichero utilizo:
procedure TForm1.Button1Click(Sender: TObject);
var
Archivo: TextFile;
Linea: String;
sl: TStringList;
j: Integer;
begin
AssignFile(Archivo, 'PRG1_call_log.txt');
Reset(Archivo);
sl := TStringList.Create;
try
while not EoF(Archivo) do
begin
ReadLn(Archivo, Linea);
sl.CommaText := Linea;
for j := 0 to sl.Count - 1 do
memo1.Lines.Add(sl[j]);
end;
finally
sl.Free;
end;
CloseFile(Archivo);
end;
Que sino me equivoco es un ejemplo de Roman.
A ver si me podeis ayudar, un saludo y gracias.
"tipo_llamada", "fecha", "hora", "duracion", "Nombre", "Telefono"
El problema es que el fichero aparentemente es normal, pero no funcionaba al leerlo, entonces mire a ver que tenia en hexadecimal y tiene esta pinta:
˙ŝ".t.i.p.o._.l.l.a.m.a.d.a.".,.".f.e.c.h.a.". ...
y ahi es donde esta el problema, pues solo me lee ˙ŝ. Hay alguna forma de pasarlo a un formato decente o leerlo asi sin problemas?
Para leer (bueno para intentar leer) el fichero utilizo:
procedure TForm1.Button1Click(Sender: TObject);
var
Archivo: TextFile;
Linea: String;
sl: TStringList;
j: Integer;
begin
AssignFile(Archivo, 'PRG1_call_log.txt');
Reset(Archivo);
sl := TStringList.Create;
try
while not EoF(Archivo) do
begin
ReadLn(Archivo, Linea);
sl.CommaText := Linea;
for j := 0 to sl.Count - 1 do
memo1.Lines.Add(sl[j]);
end;
finally
sl.Free;
end;
CloseFile(Archivo);
end;
Que sino me equivoco es un ejemplo de Roman.
A ver si me podeis ayudar, un saludo y gracias.