Проблема программного обеспечения в компьютерных клубах

← →
KSergey © (2004-08-11 17:04) [160]

> [159] Mim1 © (11.08.04 17:01)

Боюсь, что за баталиями по русскому языке пропустили

[127] DelphiN! © (11.08.04 12:16)

← →
Black_phoenix (2004-08-12 05:57) [161]

> Mim1 © (11.08.04 17:01) [159]

И так и так ! То есть написали свой движок + дополнительно используем FastScript

← →
Diesel (2004-08-13 16:22) [162]

Ребята я в программирование ничего непонимаю, поэтому прошу сделать один простецкий плагин. Для некотрых на это уйдет неболше 30 минут. Плагин я представляю таким "инвентаризация компов". Т.е. у меня много компов... и тело может украсть какую нибуть деталь... к примеру линейку или эту линейку поменять на две маленькие. Так вот с помощью этого плагина мы собираем всю конфигурацию сети... запоминаем.... через N время мы снова опрашиваем компы и вуаля. xGhost 2 server выдает табличку на 14 компе к примеру видюха стала TNT2 в место Radeon ..... ведь это реально сделать ? Сделайте плиз. (Сорри за орфографию)

← →
Diesel (2004-08-13 16:23) [163]

Удалено модератором

← →
Игорь Шевченко © (2004-08-13 16:24) [164]

> Для некотрых на это уйдет неболше 30 минут

Очень сомневаюсь.

А вот некоторым это может обойтись в круглую сумму.

← →
Плохиш © (2004-08-13 17:01) [165]

> Игорь Шевченко © (13.08.04 16:24) [164]

Там были основные слова "Ребята я в программирование ничего непонимаю", дальше уже можно не читать ;-)

← →
YurikGL © (2004-08-13 17:06) [166]

> Diesel (13.08.04 16:22) [162]

Лучше спроси, есть ли утилитка, которая может по сети определить конфигурацию чужого компа или хотя бы утилитка, которая кофигурацию своего записывает.

← →
VMcL © (2004-08-13 17:37) [167]

>>Игорь Шевченко © (11.08.04 14:28) [151]

Абсолютно согласен. У меня так же.

← →
VMcL © (2004-08-13 17:39) [168]

>>P.S. к [167]

Кстати, запоминается не только правильное написание слов, но и правильная расстановка знаков препинания плюс различные литературные обор(м)оты :-)

← →
DelphiN! © (2004-08-13 21:05) [169]

Сейчас пишется плагин удаленного администрирования, далее намечено написание плагина управления клубом, по типу Locer-a... После него обязательно будет плагин контроля железа и многое другое....

← →
Игорь Шевченко © (2004-08-13 21:33) [170]

DelphiN! © (13.08.04 21:05) [169]

А кусочек кода плагина в студию можно ? На предмет качества...

← →
Anatoly Podgoretsky © (2004-08-13 21:42) [171]

Функцию/метод строк на 10-15 кода от начала объявления до end

← →
Black_phoenix (2004-08-14 10:08) [172]

> Игорь Шевченко © (13.08.04 21:33) [170]

procedure TDesktopView.WorkProc(var Message: TMessage);
var
Msg:TWMKey;
Down:byte;
ScanCode:integer;
begin
if (Message.Msg >= WM_KEYFIRST) and (Message.Msg <= WM_KEYLAST) then
begin
Msg:=TWMKey(Message);
if (Msg.Msg=WM_SYSKEYDOWN) and (Msg.CharCode=$0D) then
begin
FullScreen:=not FullScreen;
{btnFullScreen.Down:=not btnFullScreen.Down;
btnFullScreenClick(self);}
end
else if (Msg.Msg=WM_SYSKEYDOWN) and (Msg.CharCode=$7B) then
SendCtrlAltDel
else if (Msg.Msg=WM_SYSKEYUP) and
((Msg.CharCode=$0D) or (Msg.CharCode=$7B)) then
begin
end
else if ( (Msg.Msg=WM_KEYDOWN) or
(Msg.Msg=WM_SYSKEYDOWN) or
(Msg.Msg=WM_KEYUP) or
(Msg.Msg=WM_SYSKEYUP) ) then
begin
if (Message.Msg=WM_KEYDOWN) or (Message.Msg=WM_SYSKEYDOWN) then
Down:=1
else
Down:=0;
if AcceptKeys and assigned(DC) and not PassiveMode then
begin
ScanCode:=MapVirtualKey(Msg.CharCode,0);
DC.Call([sProc("KeybMsg",[Down, Msg.CharCode, ScanCode])],False);
end;
end;
Message.Result:=0;
end;
end;

procedure TDesktopView.PaintMyImage(Sender: TObject);
var
a,x,y:integer;
pt:TPoint;
pts:array of TPoint;
begin
PaintBox.Canvas.Lock;
try
if ScaleScreen then
begin
for a:=0 to Scr.BlockCount-1 do
Scr.DrawScaledImage(a,PaintBox.Canvas,PaintBox.Width,PaintBox.Height);
end
else
begin
for a:=0 to Scr.BlockCount-1 do
Scr.DrawImage(a,PaintBox.Canvas);
end;
if ServerMouse and Scr.MouseMoved then
begin
with PaintBox.Canvas do
begin
if ScaleScreen then
begin
x:=Scr.MouseX*PaintBox.Width div Scr.ScrWidth;
y:=Scr.MouseY*PaintBox.Height div Scr.ScrHeight;
end
else
begin
x:=Scr.MouseX;
y:=Scr.MouseY;
end;
if (pt.x<x-20) or (pt.x>x+20) or
(pt.y<Y-20) or (pt.y>y+20) then
begin
SetLength(pts,3);
pts[0].X:=x;
pts[0].Y:=y;
pts[1].X:=x+8;
pts[1].Y:=y+3;
pts[2].X:=x+3;
pts[2].Y:=y+8;
Pen.Color:=clBlack;
Brush.Color:=clRed;
Polygon(pts);
end;
end;
end;
finally
PaintBox.Canvas.Unlock;
end;
end;

← →
False_Delirium © (2004-08-14 13:22) [173]

хорошо, что вы кусок кода показали, а то я уже хотел купить.:)

← →
Black_phoenix (2004-08-14 13:50) [174]

> False_Delirium © (14.08.04 13:22) [173]

Купить ты бы и так не купил ! так как модуль удалёного администрирования идёт бесплатно.

Он появиться на официальнои сайте через пол часа.
Ходят тут всякие .. прикалываються

← →
Cobalt © (2004-08-14 14:12) [175]

Мда...
В WorkProc рекомендую заменить множество If-then-else на case для Msg.CharCode

А вот это:
if (pt.x<x-20) or (pt.x>x+20) or (pt.y<Y-20) or (pt.y>y+20) then
Просто убило :(
Где инициализация переменной pt?!

← →
Cobalt © (2004-08-14 14:15) [176]

2 Black_phoenix (14.08.04 13:50) [174]
Мы не прикалываемся, мы офигеваем от качества кода.
Но ты показывай дальше, мы укажем на грубые ошибки в коде.

← →
Anatoly Podgoretsky © (2004-08-14 14:27) [177]

При том качество кода относится не грубым ошибкам, это много выше

← →
Mim1 © (2004-08-14 14:27) [178]

> [172] Black_phoenix (14.08.04 10:08)

ИМХО WorkProc очень хорошо ложится в case.

← →
black_phoenix (2004-08-17 05:43) [179]

Cobalt © (14.08.04 14:15) [176]

На счёт качества кода вы может быть и правы ... но зато то всё работает и ещё на приличной скорости. Может быть у нас руки кривые ? почему же программа у которой такой кривой код работает прямо и без перебоев ?

← →
KSergey © (2004-08-17 08:07) [180]

> [179] black_phoenix (17.08.04 05:43)

Вам просто везет ;)

← →
Игорь Шевченко © (2004-08-17 10:32) [181]

> почему же программа у которой такой кривой код работает
> прямо и без перебоев ?

Кто-то в начале заявлял про контроль качества, unit-тесты и т.п.
Видимо, заявка была в отрыве от реальной жизни и экстремальное программирование было притянуто за ради красного словца.

← →
Black_phoenix (2004-08-17 10:52) [182]

> Игорь Шевченко © (17.08.04 10:32) [181]

я цитировал ваши слова о том что кад не прошёл проверку .. вот я и спросил : почему же код по вашему корывый работает отлично ? !

← →
Игорь Шевченко © (2004-08-17 11:04) [183]

Black_phoenix (17.08.04 10:52) [182

Программы пишутся не для компьютера, а для людей. До тех пор, пока вы не поймете эту истину, разговаривать бесполезно

← →
Sandman25 © (2004-08-17 11:04) [184]

[182] Black_phoenix (17.08.04 10:52)

Корявость не есть синоним плохой работы.
Программа может правильно работать, даже если все переменные называются a, aa, aaa, aaaa, aaaaa и т.д.

← →
wal © (2004-08-17 11:10) [185]

> black_phoenix (17.08.04 05:43) [179]
> почему же программа у которой такой кривой код работает
> прямо и без перебоев ?
ПОКА работает прябо и без перебоев.

С уважением.

← →
Black_phoenix (2004-08-17 11:50) [186]

> wal © (17.08.04 11:10) [185]

Мы постараемся чтобы она работала всегда прямо и без перебоев :)

← →
VMcL © (2004-08-17 12:29) [187]

>>Black_phoenix (17.08.04 11:50) [186]

>Мы постараемся чтобы она работала всегда прямо и без перебоев :)

"Ню-ню..." © анекдот

← →
Юрий Зотов © (2004-08-17 14:18) [188]

> Black_phoenix (17.08.04 11:50) [186]

> Мы постараемся чтобы она работала всегда прямо и без
> перебоев :)

И поверьте, что "стараться" Вам будет гораздо легче и быстрее, если для начала Вы выпрямите код.

Кстати, уверен, что в процессе выпрямления вроде бы работающего кода Вы с удивлением обнаружите в нем немало неработающих (или работающих криво) мест.

← →
black_phoenix (2004-08-17 17:21) [189]

> Юрий Зотов © (17.08.04 14:18) [188]

> Кстати, уверен, что в процессе выпрямления вроде бы работающего кода Вы с удивлением обнаружите в нем немало неработающих (или работающих криво) мест.

Во - Во ! вот этим мы переодически и занимаемся :)

← →
Rem (2004-08-17 17:53) [190]

>Во - Во ! вот этим мы переодически и занимаемся

А потом наступит тот самый критический момент, когда это все каааак грохнется! И сопровождение покажется вам сущим адом. И вас будут крыть матом не только пользователи конечного продукта, но и те горе-программисты, которые согласятся использовать ваше ядро для своих разработок. И будете вы покрываться холодным потом. И выключать телефоны. И половину рабочего времения тратить на перекуры и жалобы друг другу. И в скором времени вся ваша "рабочая группа" поувольняется из-за постоянного психологического перенапряжения и вечных авралов.
Аминь!

← →
Black_phoenix (2004-08-18 07:30) [191]

> Rem (17.08.04 17:53) [190]

Так как вся система построена на модулях, всё сразу грохнуться никогда и не сможет ! Сможет грознуться 2-3 модуля максимум

> Так как вся система построена на модулях, всё сразу грохнуться
> никогда и не сможет !

Грохнится ядро и будет вам счастье :)

Уже готов плагин для голосового общения по сети и удаленного администрирования! На офф. сайте они появятся в ближайшее время...

> Создаёться впечатление что это не dll а обычная форма

в огороде бузина, а в Киеве дядька

> Black_phoenix

не стыдно, а ?

Сам задаю вопрос и сам на них отвечаю под другим ником, в свою поддержку. Умно конечно, но почему же не расширить аудиторию поддержки.

DelphiN! - это DelphiN!
а Phoenix - это Phoenix

А сидим мы в одном оффисе под одной прокси, поэтому IP и один

>оффисе

В микрософт оффисе?

:)))

← →
Black_phoenix (2004-08-21 10:57) [200]

> Digitman © (19.08.04 11:53) [194]

не стыдно чего ?

> YurikGL © (21.08.04 09:10) [198]

В микрософт офисе сидим когда ошибки текста нужно проверить..

Вы всё прикалываетесь :) Вот скоро программа подниметься и тогда мы припомним всех насмешников :)

Кстати кто нибудь её в действии смотрел ? или все прикалываться только могут ?

Проблема программного обеспечения в компьютерных клубах Найти похожие ветки