Модератор: Злобные админы
Код: Выделить всё
SC:LongWord;
Buf: array[1..BufSize] of Byte;
FlT:File;
...
ReWrite (FlT, 1);
...
SC:=0;
...
AC:=ClientSocket.Socket.ReceiveBuf(Buf, BufSize);
if AC>0 then
begin
BlockWrite (FlT, Buf, AC);
Inc(SC,AC);
...
end;
until SC>=FSize;
, отведенный участок памяти под буфер недостаточен и при превышении оного, искомые ~2,1 Мб, осуществляется попытка занять под переменную уже занятый участок памяти. Хех. Видимо в ходе инициализации исполняемого процесса существующие настройки недостаточны для его полноценной работы. Хихик, но кажись автор ап этом тожи знаит. 
Код: Выделить всё
repeat
AC:=ClientSocket.Socket.ReceiveBuf(Buf, BufSize);
if AC>0 then
begin
BlockWrite (FlT, Buf, AC);
Inc(SC,AC);
...
end;
====>Application.ProcessMessages;
until SC>=FSize;Код: Выделить всё
// Получение снимка состояния системы
hSnapshot := CreateToolhelp32Snapshot (TH32CS_SNAPPROCESS, 0);
// Получене инфоpмации о пеpвом пpоцессе в списке
Process32First();
// Получение инфоpмации о следующем пpоцессе в списке
Далее в цикле Process32Next();
Неа... окон создавать не хочу.Если трабла только в этом, то создай прозрачное окно или за пределами рабочего стола.
Хе... с чего ты взял? Просто нужно написать простой сервер.И хва увлекаться вирями.
Дааа? Ну-ка, ну-ка освети эту область. Небось философия?Есть более конструктивная область приложения в том числе и твоего интеллекта.
Хочу-нехочу; задача стояла: что передать в качестве хендла окна.AL писал(а):Неа... окон создавать не хочу.
Да, да, прооостенький такой, штоп он чисто слушал один порт и по ctrl+alt+del под 95/98-м ничем не выдавал своего присутствия и периадичиски коя што передавал по запросу "клиента"AL писал(а):Хе... с чего ты взял? Просто нужно написать простой сервер.
.Та ну иё ф пень эту пиласофийу. Если по теме, то например распеделенные вычисления для моделирования физических процессов в реальном времени. И не надо при этом прятать сервер из списка окон.AL писал(а):Дааа? Ну-ка, ну-ка освети эту область. Небось философия?
Ищем другои вариант.Destion писал(а):Хочу-нехочу задача стояла: что передать в качестве хендла окна.
Сделать это будет просто, точнее сделано...Destion писал(а):Да, да, прооостенький такой, штоп он чисто слушал один порт и по ctrl+alt+del под 95/98-м ничем не выдавал своего присутствия и периадичиски коя што передавал по запросу "клиента"
Из списка окон ничего прятать не надо - просто их не надо создавать.Destion писал(а): Если по теме, то например распеделенные вычисления для моделирования физических процессов в реальном времени. И не надо при этом прятать сервер из списка окон.
DelphiWorld, батенька, пока ничего дельного не сказал. Может быть я его не так пытаю.Destion писал(а):Ищи, Тузик, ищи. Мне например DelphiWorld в поисках помогает.
Дых... речь идёт о сервере, а не о клиенте (с ним-то пока все в порядке).Destion писал(а):Ну а для того чтобы управлять сервачком нужен интерфейс, и желательно - графический, ...
. Вот что мне выдал DW при поиске текста WSAAsyncSelect, вощем мон поражён. Код: Выделить всё
Что нужно давать WSAAsyncSelect в качестве параметра handle
--------------------------------------------------------------------------------
Автор: Nomadic
Что нужно давать WSAAsyncSelect в качестве параметра handle, если тот запускается и используется в dll (init), и никакой формы (у которой можно было бы взять этот handle) в этой dll не создается?
const
WM_ASYNCSELECT = WM_USER + 0;
type
TNetConnectionsManager = class(TObject)
protected
FWndHandle: HWND;
procedure WndProc(var MsgRec: TMessage);
...
end;
constructor TNetConnectionsManager.Create
begin
inherited Create;
FWndHandle := AllocateHWnd(WndProc);
...
end;
destructor TNetConnectionsManager.Destroy;
begin
...
if FWndHandle <> 0 then
DeallocateHWnd(FWndHandle);
inherited Destroy;
end;
procedure TNetConnectionsManeger.WndProc(var MsgRec: TMessage);
begin
with MsgRec do
if Msg = WM_ASYNCSELECT then
WMAsyncSelect(MsgRec)
else
DefWindowProc(FWndHandle, Msg, wParam, lParam);
end;
Hо pекомендую посмотpеть WinSock2, в котоpом можно:
WSAEventSelect( FSocket, FEventHandle, FD_READ or FD_CLOSE );
WSAWaitForMultipleEvents( ... );
WSAEnumNetworkEvents( FSocket, FEventHandle, lpNetWorkEvents );
То есть, обойтись без окон и без очеpеди сообщений windows, а заодно иметь возможность pаботать и с IPX/SPX, и с netbios.
Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay
Вот-вот, можно об этом поподробнее. Есть ли опыт в создании распределенных вычислений. А то хотелось был лабочку создать по параллельному программированию на эту тему.Destion писал(а): Если по теме, то например распеделенные вычисления для моделирования физических процессов в реальном времени. И не надо при этом прятать сервер из списка окон.
. Так вот, раскидал копии архива с клиентами по машинам в классе и осуществил распределенную атаку на архив по словарю. Вооот, а для моделирования физических процессов нужно распределять вычисления характеристик по тем же машинам в зависимости от времени например, чтобы сервер получал уже вычисленные величины. Ну например делить секунду на 10 частей и каждый клиент, получив определенную функцию, вычисляет десять значений функции в зависимости от времени, полученные результаты отправляет на сервак. Сервак же в свою очередь тупо подставляет полученные величины для отображения процесса. Вощем пока все пашут, сервер занимается рисованием. 