[dianik]

Приветик всем

Вот пишу курсовой проект на тему "Создание интернет портала". Это уже вторая работа. В первой разбирались типы порталов (горизонтальные, вертикальные, корпоративные). А в этой работе нужно более близко подобраться к теме создания портала.

В первой части этой работы я рассмотрела липовую фирму, которая занимается ремонтом компьютеров и которой как бы необходим портал, с помощью которого, ремонтники могли бы из любого место в любое время зайти на своё рабочее место из Интернета или по моб. телефону и прочитать о новом заказе или подсчитать цену ремонта, посмотреть базу данных запасных частей на складе фирмы. Клиенты могли бы оформить заказ на ремонт из своего профиля. В общем я как понимаю нужно делать корпоративный портал b2e. Только как-то даже не представляю с чего начать. Мне не нужно пока вдаваться в подробности, а пройтись мельком по всем стадиям разработки портала.

Может быть кто-то уже сталкивался с таким заданием? Может можете посоветовать что и как? Может есть хорошая литература на эту тему?

Заранее спасибо всем отозвавшимся!

---

С++/VB

[Lacrua]

Люди, у кого есть толковая литература по С++ и ли Visual Basic, или кто знает, где найти. Особо нужны учебники типа от чайника до самовара.

Зарание Спасибо.

---

Как в JAVA сделать скриншот рабочего окна программы?

[Ya_eto_Ya]

Ребят, помогите, пожалуйста.



Как в JAVA сделать скриншот рабочего окна программы?



Я знаю, что в классе Robot есть метод, делающий скриншот. Так?

И как его в jpeg(gif) файл сохранить?



Заранее спасибо.

---

Форум

[Lacrua]

Кно-небуть знает, где найти нормальный форум програмистов?

---

[Lacrua]

Ещё раз. У меня в Visual Basic проблема: VBImage во время работы пр-мы при перемещении как-то странно мигает, рисунок формата gif с прозрачным фоном.

Как избавиться от этого неприятного мигания?

---

и опять perl...и опять помогите пожалуйста

[Mix]

код

use IO::Socket;

if (@ARGV < 2) {

}

$server = $ARGV[0];

$dir = $ARGV[1];

$search = $ARGV[2];

$socket = IO::Socket::INET->new(Proto => "tcp",PeerAddr => "$server",PeerPort => "80") || die $socket error $!";

$exe = "http://$server/";

$exe .= $dir . $search;



print $socket "GET $exe HTTP/1.0\r\n\r\n";



while ($op = <$socket>) {



if ($op =~ /^www/) {

}

print $op;



}



хочу написать скрипт, который бы из поисковика выдергивал url

например, нужно найти все сайты с index.php?action=

я передаю $server, значение www.google.ru

$dir - если это google, то search?hl=

$search - inurl:index.php?action=

но получается 301 Moved, то есть "постоянно перемещаемый"

как можно замутить, чтоб скрипт переходил в поисковике, с страницы 1 на 2 и т.д.

или все это фигня и зря стараюсь

---

[Lacrua]

Тут такая проблема: Делаю я мини аркадку на VB, всё хорошо, только вот рисунок персонажа при перемещении "рябит", т.е. по нему пробегают белые полосы. Поставил Autoredraw=true, но всёравно рябит. Подскажите, как от этого избавится, чтобы перс перемещался без всяких глюков.

P.S. Он перемещается при нажатиях соот. клавиш (событие KeyPress).

---

help!

[Mix]

имееться

код

use strict;

use IO::File;



my $cvsroot = $ENV{'CVSROOT'};



$) = $(;



my $dostatus = 1;

my $verbosestatus = 1;

my $users;

my $login;

my $donefiles;

my $logfile;

my @files;



#

# parse command line arguments

#

while (@ARGV) {

my $arg = shift @ARGV;



if ($arg eq '-m') {

$users = "$users " . shift @ARGV;

} elsif ($arg eq '-u') {

$login = shift @ARGV;

} elsif ($arg eq '-f') {

($logfile) && die "Too many '-f' args";

$logfile = shift @ARGV;

} elsif ($arg eq '-s') {

$dostatus = 0;

} elsif ($arg eq '-V') {

$verbosestatus = 0;

} else {

($donefiles) && die "Too many arguments!\n";

$donefiles = 1;

@files = split(/ /, $arg);

}

}



my $modulepath = shift @files;



my $mailcmd = "| /usr/sbin/sendmail";





my @mos = (

'January', 'February', 'March',

'April', 'May', 'June',

'July', 'August', 'September',

'October', 'November', 'December'

);



my @days = (

'Sunday', 'Monday', 'Tuesday',

'Wednesday', 'Thursday', 'Friday', 'Saturday'

);



my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime;

$year += 1900;





if ($login eq '') {

$login = getlogin || (getpwuid($<)[0] || "nobody";

}





my $logfh = new IO::File ">>" . $logfile ||

die "Could not open(" . $logfile . "): $!\n";





my $mailfh;

if ($users) {

$mailcmd = "$mailcmd $users";

$mailfh = new IO::File $mailcmd ||

die "Could not Exec($mailcmd): $!\n";

$users =~ s/ /, /;

$mailfh->print ("To: $users\n");

$mailfh->print ("From: unhstack\@mail.ru\n");

$mailfh->print ("Subject: CVS: $modulepath\n");

$mailfh->print ("Content-Type: text/plain; charset=windows-1251\n\n");

}



#

# print out the log Header

#

$logfh->print ("\n");

$logfh->print ("****************************************\n");

$logfh->print ("Date:\t$days[$wday] $mos[$mon] $mday, $year @ $hour:" .

sprintf("%02d", $min) . "\n");

$logfh->print ("Author:\t$login\n\n");



if ($mailfh) {

$mailfh->print ("\n");

$mailfh->print ("Date:\t$days[$wday] $mos[$mon] $mday, $year @ $hour:" .

sprintf("%02d", $min) . "\n");

$mailfh->print ("Author:\t$login\n\n");

}





my $infh = new IO::File "< -";

foreach ($infh->getlines) {

$logfh->print;

if ($mailfh) {

$mailfh->print ($_);

}

}

undef $infh;



$logfh->print ("\n");



#

# after log information, do an 'cvs -Qq status -v' on each file

# in the arguments.

#

if ($dostatus != 0) {

while (@files) {

my $file = shift @files;

if ($file eq "-") {

$logfh->print ("[input file was '-']\n");

if ($mailfh) {

$mailfh->print ("[input file was '-']\n");

}

last;

}

my $rcsfh = new IO::File;

my $pid = $rcsfh->open ("-|");

if ( !defined $pid ) {

die "fork failed: $!";

}

if ($pid == 0) {

my @command = ('cvs', '-nQq', 'status');

if ($verbosestatus) {

push @command, '-v';

}

push @command, $file;

exec @command;

die "cvs exec failed: $!";

}

my $line;

while ($line = $rcsfh->getline) {

$logfh->print ($line);

if ($mailfh) {

$mailfh->print ($line);

}

}

undef $rcsfh;

}

}



$logfh->close() || die "Write to $logfile failed: $!";



if ($mailfh) {

$mailfh->close;

die "Pipe to $mailcmd failed" if $?;

}



exit 0;



почему-то между мейлами юзеров при отправление ставятся точки([email protected]@mail.ru и т.п.) =\

в чем может быть проблема?

---

[Ms.Leigh]

Объясните плиз тупому, как мне фильм с ДВД отправить на раскадровку в Виндоус Муви Мейкер?

---

Мысли под пиво

[O]

Что DBMS, что BDSM... Второе может даже и поприятнее будет...



Актуальная фраза в посленнее время. Для меня по карйней мере.



И вот мне стало что интересно, при проектировнии БД/ПО пользуется ли кто IDEF'ом, UML'ем? Или может сейчас что удобнее/юзабильнее существует?

И какие, акромя ERWin'а, пакеты можете посоветовать для формализации представления структуры БД?

---

[Караидель]

Ищутся толковые онлайн-книги, учебники и справочники по Managed DirectX. Конкретно интересует Direct3D и построение интерфейса его средствами.

И не говорите, что я забиваю гвозди микроскопом - я в курсе.

---

[Lacrua]

Народ, я тут полезный сайт нашёл, там лит-ра по всем аспектам програмирования.

Вот он:http://www.ponteley.al.ru

---

[Lacrua]

Есть кто-небудь, кто знает Visual Basic.

---

[FRikaZOid]

Итак.. последняя лаба за семестр. Может у кого есть мысли, хотябы алгоритм?



Ввести степеть и коэффициенты полинома. Ввести границы интервала a,b и точность eps. Найти корень полинома на интервале [a,b] методом деления отрезка пополам. (считать, что p(a)*p(b)<0)

---

[jaizer]

С++ стал изучать недавно. Но вот хоть убей не понимаю что такое указатели и для чего они нужны!! Может ли кто-нибудь подробно объяснить?

---

[FRikaZOid]

Кто знает, как на Си написать функцию для перевода переменной типа long в символьную строку в двоичном представлении? (ltoab(long num,char s[]))..

---

Нужна помощь в написании документации, ГОСТ 19.505-79 и ГОСТ 19.402-78

[neZvezda]

Есть программа. К ней нужно написать

1.РУКОВОДСТВО ОПЕРАТОРА ГОСТ 19.505-79

2.ОПИСАНИЕ ПРОГРАММЫ ГОСТ 19.402-78

---

[.schi]

всем здрасьте.



хэлп ми, плиZz.. не люблю ни у кого просить, НО.. помогите написать прогу на Java "текстовый редактор" с апплетами.



а всё потому, что скоро сессия

---

Нужны материалы по С++

[alexp]

Нужны толковые не базовые материалы связанные с С++!

Примеры: любые продвинутые темы по ООП с привязкой к С++; containers, STL and etc; RTTI; data structures and design patterns; компиляция, внутреннее строение С++ команд, функций, расположение в памяти; exceptions; templates; и т.д. и т.п.

А еще: coding standards и всевозможные хитрые задачки и вопросы.



Желательно на английском, так как понятнее и переводить не придется.



Для чего мне это? А назначили меня «центром знаний по С++» нашего отдела. Теперь все с возникающими вопросами должны бегать ко мне, что не ново – и так ко мне бегали. Новое в том, что я должен периодически подбрасывать людям продвинутые материалы. Для этого они и понадобились.



Буду рад полезным ссылкам. Заранее спасибо.



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

---

Полноценно использование своего компонента из DLL

[SonicCat]

Рисуется на форме мой компонент TEditGlushkov (он в QEditGlushkov) (в виде TEdit) но перегруженные в нем виртуальные функции не пашут. Че делать.



Задание звучит так:

Созданный новый компонент должен быть доступен для других приложений и/или форм, следовательно сохранить его в виде библиотеки DLL.



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



Есть еще предложения что можно сделать.



P.S. Код ниже







//===========================В DLL==================================



library Project2;



{}



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls,QEditGlushkov;



type PForm = ^TForm;



var cmp:TEditGlushkov;



procedure mess();

begin

MessageBox(0,'dll','dll',MB_OK);

end;



procedure CreateMyEdit(sl:PForm);

begin

cmp:=TEditGlushkov.Create(sl^);

cmp.ParentWindow:=sl.Handle;

cmp.Top:=20;

cmp.Left:=20;

cmp.Width:=300;

end;



exports

mess index 1,

CreateMyEdit index 2;



{$R *.res}



begin

end.



//===========================В Проекте==================================



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;



type

TForm1 = class(TForm)

Button1: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



PForm = ^TForm;



var

Form1: TForm1;



procedure mess();external 'Project2.dll'

procedure CreateMyEdit(sl:PForm);external 'Project2.dll'



implementation



{$R *.dfm}



procedure TForm1.FormCreate(Sender: TObject);

begin

mess();

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

CreateMyEdit( @Form1 );

end;



end.