Arquivos - ler mesmo estando locked

Top  Previous  Next

To use this you need an OpenDialog component, RichEdit component and a 

BitButton on a form. 

 

procedure TForm1.BitBtn1Click(Sender: TObject); 

var 

  Buffer: string; 

  Stream: TFileStream; 

  DataLoader : TStringList; 

begin 

  DataLoader := TStringList.Create

  OpenDialog1.Execute

  Stream := TFileStream.Create(OpenDialog1.FileName, fmShareDenyNone); 

  SetLength(buffer, Stream.Size); 

  Stream.Read(Buffer[1], Stream.Size); 

  DataLoader.SetText(PChar(Buffer)); 

  Stream.Free; 

  RichEdit1.Text := DataLoader.Text; //this really isn't necessary, just used  it to 'see' the contents. 

end