Вниз
Скачать: CL | DM;

Как считать данные из файла открытого другим приложением   Найти похожие ветки 

← →
AlexSt ©   (2007-09-03 17:56) [0]

Подскажите, кто знает как можно считать данные из файла открытого другим приложением, если скопировать функцией CopyFile я его могу, а открыть только для чтения нет.


← →
Dib@zol ©   (2007-09-03 17:57) [1]

> скопировать функцией CopyFile я его могу, а открыть только
> для чтения нет.

Дык открывай для чтения/записи и плюс расшаривай доступ!


← →
umbra ©   (2007-09-03 17:57) [2]

скопировать, открыть копию и читать из нее.


← →
AlexSt ©   (2007-09-03 18:29) [3]

Как расшарить? Как это сделать?

Копирование это резервный вариант, если ничего больше не получиться. Неохото делать лишние операции.


← →
umbra ©   (2007-09-03 18:32) [4]

Если занятый файл нельзя открыть для чтения с правами на совместный доступ для любых операций, то легче всего подождать, пока файл освободится. Конечно, если это не файл подкачки :)


← →
Dib@zol ©   (2007-09-03 18:34) [5]

> Как расшарить? Как это сделать?

CreateFile + FILE_SHARE_READ or FILE_SHARE_WRITE + F1


← →
AlexSt ©   (2007-09-03 18:56) [6]


> CreateFile + FILE_SHARE_READ or FILE_SHARE_WRITE + F1

Есть пример работы с CreateFile


← →
Dib@zol ©   (2007-09-03 19:32) [7]

function GetFileData(FileName:string):pointer;
 F:=CreateFile(PChar(FileName), GENERIC_READ, FILE_SHARE_READ, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
 if F=INVALID_HANDLE_VALUE then exit;
 FindFirstFile(PChar(FileName), wfd);
 S:=wfd.nFileSizeLow;
 LongInt(P):=LocalAlloc(GMEM_FIXED, S);
 ReadFile(F, Result^, S, T, nil);
 CloseHandle(F);
end;

...

P:pointer;

...

P:=GetFileData("c:\1.txt");
// Некие действия
LocalFree(LongInt(P));


← →
Dib@zol ©   (2007-09-03 19:58) [8]

Поправлюсь: LongInt(Result):=LocalAlloc(GMEM_FIXED, S);



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.014 c
15-1188759187
WhiteWolf
2007-09-02 22:53
2007.09.30
Интересует за сколько можно написать такой проект.


3-1180416348
Strang
2007-05-29 09:25
2007.09.30
Процедура изменения свойств


2-1189072125
delphiForever
2007-09-06 13:48
2007.09.30
можна ли рисовать на битмапе в TThread


2-1188503073
kaharin
2007-08-30 23:44
2007.09.30
Thread (проблема завершения 3 потока)


1-1184659706
Chaser
2007-07-17 12:08
2007.09.30
Загрузка в "WordApplication1" файл из TMemoryStream




   Наверх