Текущий архив: 2006.10.22;
Скачать: CL | DM;
Вниз
Есть две проги одна складывает данные в... Найти похожие ветки
← →
balepa © (2006-09-29 09:50) [0]Есть две проги одна складывает данные в файл каждую секунду другая их оттуда берет (по сети) и отображает.
Теперь проблема.
Если их запустить на одном компе с Win98 то вторая все берет и отображает.
А если На разных то программа которая берет и отображает вроде как ничего неберет (один раз берет а дальше нет а может и
берет только постоянно одно и тоже число).
А если на том которая берет и отображает стоит XP или W2k все работает, а если Win98 то нет.
Открывает файлы
Files[1]:= CreateFile("\\sbor\trm600.dat",GENERIC_READ,FILE_SHARE_READ or
FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Files[2]:= CreateFile("\\sbor\trm60m.dat",GENERIC_READ,FILE_SHARE_READ or
FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
Files[3]:= CreateFile("\\sbor\trm24h.dat",GENERIC_READ,FILE_SHARE_READ or
FILE_SHARE_WRITE,nil,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
//ОПрос
procedure Opros(Tip: Integer);
var
FB,FB2: SmallInt;
nRead: Cardinal;
begin
SetFilePointer(Files[Tip],0,nil,FILE_BEGIN);
ReadFile(Files[Tip],FB,sizeof(FB),nRead,nil);
FB2:= Vvod[Tip];
SetFilePointer(Files[Tip],FB2*sizeof(TSborRecord)+2,nil,FILE_BEGIN);
repeat
//while FB<>FB2 do begin
ReadFile(Files[Tip],Sbor,sizeof(TSborRecord),nRead,nil);
DN[FB2,Tip]:= Sbor;
FB2:= FB2+1;
if FB2>599 then begin
FB2:= 0;
SetFilePointer(Files[Tip],2,nil,FILE_BEGIN);
end;
Vvod[Tip]:= FB2;
// end;
until FB=FB2;
end;
Кто что думает ?
← →
Elen © (2006-09-29 09:54) [1]
> Есть две проги одна складывает данные в файл каждую секунду
> другая их оттуда берет
А что обязательно файлами барахтаться? Сокеты не подходят?
← →
Sergey13 © (2006-09-29 10:01) [2]> [1] Elen © (29.09.06 09:54)
+ или БД.
← →
Elen © (2006-09-29 10:05) [3]
> Sergey13 ©
+ Stream. Да и вообще может лучше вместо API использовать стандартне паскалевские Read..Write? (Sorry если фигню морожу, просто Win98 всетаки староват)
← →
balepa © (2006-09-29 11:07) [4]Elen © (29.09.06 09:54) [1]
Вопрос не в том файлы или сокеты, а в почему в 98 не работает а в XP и W2k работает ?
← →
Elen © (2006-09-29 11:24) [5]
> balepa
Наверное потому что 98 не очень с сетями дружит (просьба мастеров помидоры не кидать - это предположение)
← →
balepa © (2006-10-02 06:10) [6]Ну че никто ничего неподскажет
Страницы: 1 вся ветка
Текущий архив: 2006.10.22;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.029 c
