RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 232
от 08.09.2005, 20:48

Вопрос № 25.723

Здравствуйте, великие Гуру от программирования! В чём ошибка? не показывает разницу. Прога нужна именно в том виде, как есть, т.к. введённые данные будут использоваться в других подпрограммах. Спасибо. Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Edit4: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; beg,en,hh1,mm1,hh2,mm2:String; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin hh1:= Edit1.Text; mm1:= Edit2.Text; hh2:= Edit3.Text; mm2:= Edit4.Text; beg:=hh1+':'+ mm1 ; en:=hh2+':'+ mm2 ; Label4.Caption:=TimeToStr(SecondsBetween(StrToTime(beg),StrToTime(en))); end; end.

Отправлен: 02.09.2005, 23:27 Вопрос задал: Щербаков Сергей Николаевич (статус: 1-ый класс) Всего ответов: 8 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Tsechoev Bagaudin Здравствуйте, Щербаков Сергей Николаевич! А где сами секунды? --------- Есть только одно зло - невежество, и только одно благо - знания

Ответ отправил: Tsechoev Bagaudin (статус: 10-ый класс) Отправлен: 02.09.2005, 23:37

Отвечает: Denisss Здравствуйте, Щербаков Сергей Николаевич! Дело в том, что функция SecondsBetween возвращает количество секунд, а не TTime, потому правильно следует делать так: Label4.Caption:= IntToStr(SecondsBetween(StrToTime(beg),StrToTime(en)));

Ответ отправил: Denisss (статус: Студент) Отправлен: 03.09.2005, 00:13

Отвечает: Силантьев Евгений Александрович Здравствуйте, Щербаков Сергей Николаевич! Ошибка в том, что функция SecondsBetween возвращает значение типа Integer (точнее Int64), а не TDateTime - поэтому следует писать не TimeToStr, а IntToStr. Если процедура опять не будет работать, советую просто набрать её еще раз. Ваша у меня действительно не сработала, но потом я набрал тот же текст, и она заработала - МИСТИКА :)) Успехов!!! --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 5-ый класс) Отправлен: 03.09.2005, 00:34

Отвечает: Zubex Здравствуйте, Щербаков Сергей Николаевич! Внимательно читайте хелп - там написано: function SecondsBetween(const ANow, AThen: TDateTime): Int64; Т.е. функция возвращает целое число, а Вы преобразовываете TimeToStr, а дата и время имеет тип Double... Напишите: Label4.Caption:=IntToStr(SecondsBetween(StrToTime(beg),StrToTime(en))); Удачи!

Ответ отправил: Zubex (статус: 2-ой класс) Отправлен: 03.09.2005, 00:36

Отвечает: sir henry Здравствуйте, Щербаков Сергей Николаевич! Ваша ошибка в том, что Вы не читаете хелп, который прилагается к Дельфи. Функция SecondsBetween() имеет на выходе тип Int64, а не TDateTime, следовательно, обратное преобразование должно иметь такой вид: Label4.Caption:=IntToStr(SecondsBetween(StrToTime(beg),StrToTime(en))); Пожалуйста, будте внимательны. :)

Ответ отправил: sir henry (статус: Профессор) Отправлен: 03.09.2005, 08:15

Отвечает: Romodos Здравствуйте, Щербаков Сергей Николаевич! ваша ошибка в том, что SecondsBetween возвращает значение int64 (кол-во секунд между указанными временами), так что правильно так Label4.Caption:=IntToStr(SecondsBetween(StrToTime(beg),StrToTime(en))); //Вместо TimeToStr используем А потом уже секунды переводить в минуты и часы!!! --------- FAQ me off!

Ответ отправил: Romodos (статус: 5-ый класс) Отправлен: 03.09.2005, 10:06

Отвечает: newinfo2005 Здравствуйте, Щербаков Сергей Николаевич! если я вас правильно не понял,тотак Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,DateUtils; type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; Edit2: TEdit; Label4: TLabel; Edit3: TEdit; Edit4: TEdit; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; beg,en,hh1,mm1,hh2,mm2:String; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin hh1:= Edit1.Text; mm1:= Edit2.Text; hh2:= Edit3.Text; mm2:= Edit4.Text; beg:=hh1+':'+ mm1 ; en:=hh2+':'+ mm2 ; Label4.Caption:=TimeToStr(StrToTime(beg)-StrToTime(en)); end; end. --------- Хочу стать умным и...много денег и халявного инета.

Ответ отправил: newinfo2005 (статус: 5-ый класс) Отправлен: 03.09.2005, 10:49

Отвечает: Anefedov Здравствуйте, Щербаков Сергей Николаевич! SecondsBetween возвращает int64 а не time Вот так сработает Label4.Caption:=IntToStr(SecondsBetween(StrToTime(beg),StrToTime(en)));

Ответ отправил: Anefedov (статус: 3-ий класс) Отправлен: 03.09.2005, 17:14

Вопрос № 25.726

Как принять файл используя INDY компонент IdTCPClient ? var ip:string;// Адрес сервера port:string;// Порт сервера fileName:String;//Имя передаваемого файла filesize:integer;// Размер передаваемого файла При подключении к серверу сразу начинается передача файла. procedure TDCCSendForm.IdTCPClientConnected(Sender: TObject); begin DCCSend_IdTCPClient.WriteLn(''); FileExists(DCCSend_Save_FlatEdit.Text); ???????????????????????????????????? end;

Отправлен: 03.09.2005, 00:34 Вопрос задал: source (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Samum Здравствуйте, source! Нужно работать с потоками данных (TStream и его наследники). В частности, для получения файла можно использовать TFileStream. procedure TDCCSendForm.IdTCPClientConnected(Sender: TObject); begin DCCSend_IdTCPClient.WriteLn(''); FileExists(DCCSend_Save_FlatEdit.Text); FileStream := TFileStream.Create(DCCSend_Save_FlatEdit.Text, fmCreate); while IdTCPClient.connected do IdTCPClient.ReadStream(FileStream, -1, true); ... end; В этом примере сигналом об окончании приема файла является отключение компонента от сервера. Подробнее можно узнать в справке по методу IdTCPClient.ReadStream --------- Если бы программистам за их ошибки отрывали части тела, то в конце концов им пришлось бы использовать голову!

Ответ отправил: Samum (статус: Специалист) Отправлен: 03.09.2005, 11:48 Оценка за ответ: 5 Комментарий оценки: Спасибо большое. А как в этом примере получить размер уже закачанный? просто хочу еще сделать индикацию закгузки.

Отвечает: Werewolf Здравствуйте, source! Прогресс можно получить используя обработчик события IdTCPClient.OnWork

Ответ отправил: Werewolf (статус: 7-ой класс) Отправлен: 04.09.2005, 02:53

Вопрос № 25.747

Здрасти Как можно узнать скорость подключения интернета? Заранье благодарю

Отправлен: 03.09.2005, 11:55 Вопрос задал: Орхан Гасымов Аяз (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Силантьев Евгений Александрович Здравствуйте, Орхан Гасымов Аяз! Недавно задовался такой же вопрос! Номер вороса 25433! http://rusfaq.ru/?Step=info&Action=Question&ID=25433 --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 5-ый класс) Отправлен: 03.09.2005, 13:04

Вопрос № 25.764

Здраствуйте, я пытаюсь написать медиаплеер, но у меня ничего неполучается, когда нажимаю run пишет "Exception EMCIDeviceerror in module Project1.exe at 000720F0 Cannot determine device type from the given filename extension" я пытаюсь проиграть .mp3 фаил. помогите пожалуйста и если не трудно вышлите мне на мыло код работающего плеера. Заранее спасибо.

Отправлен: 03.09.2005, 16:57 Вопрос задал: A.K. (статус: Посетитель) Всего ответов: 6 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: sir henry Здравствуйте, A.K.! Я пытаюсь написать программу-телевизор, но она у меня не работает, что мне делать? :) На такие вопросы нельзя толком ответить. С помощью чего Вы пишете свой медиаплеер? Какие компоненты применяете? Из сообщения об ошибке ясно, что система не может определить, с помощью какого устройства можно проиграть Ваш файл. Задайте это устройство вручную. А как это сделать (тем более привести код) - фиг его знает, т.к. Вы не затруднили себя написать, с помощью чего Вы пишете свой медиаплеер. Попробуйте поставить кодек для мр3 и воспроизвести файл с помощью функции PlaySound().

Ответ отправил: sir henry (статус: Профессор) Отправлен: 03.09.2005, 17:21

Отвечает: newinfo2005 Здравствуйте, A.K.! И что ты хочешь узнать? Тебе уже отвечали и тебе толком не ответили. Естесно тебе сказли что нужно определить с помощью кого устройства ты хочешь проигрывать. Посмотри как работает компонент медиаплейр. Удерживая Ctrl в секции uses щелкни по MPlayer и увидишь как это делает медиаплейр!!! --------- Хочу стать умным и...много денег и халявного инета.

Ответ отправил: newinfo2005 (статус: 5-ый класс) Отправлен: 03.09.2005, 18:03

Отвечает: mvp Здравствуйте, A.K.! //-------- mediaplayer1.devicetype := dtAutoSelect; mediaplayer1.filename := 'test.mp3'; //полный путь mediaplayer1.play; //--------------------------------------------------------- Можно ещё autoopen поставить true, если компонент создаётся во время выполнения. Лично я бросил компонент на форму, выставил свойства devicetype, filename и avtoopent = true. Запустил и всё заиграло :) --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: 4-ый класс) Отправлен: 03.09.2005, 18:57 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, A.K.! Данное сообщение об ошибке означает одно из двух: либо у Вас в системе проблемы со звуковыми устройствами (не установлены или неисправны), либо не установлены соответствующие драйвера/кодеки. Однако речь идёт о Delphi, поэтому говорить следует не об этом. Обычно с помощью TMediaPlayer файлы проигрываются следующим образом: MediaPlayer1.FileName:='C:Music est.mp3'; MediaPlayer1.DeviceType:=dtAutoSelect; MediaPlayer1.Open; MediaPlayer1.Play; Попробуйте понять, в какой именно строке у Вас происходит ошибка. Кроме того, к данному ответу я прикрепляю пример простенького mp3-проигрывателя. Быть может, поможет... Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа. --------- Мышка побежала, xвостиком махнула - cервер упал...

Ответ отправил: Ерёмин Андрей (статус: Практикант) Отправлен: 03.09.2005, 19:45 Оценка за ответ: 5

Отвечает: Romodos Здравствуйте, A.K.! Я знаю в чём баг, вы поставили свойство MediaPlayer.AutoOpen=True. Поэтому, у вас выплывает ошибка сделайте его False; привожу код модуля opd -это opendialog со вкладки dialogs MFile - это Edit ButOpen - это Button со вкладки Standart MPlayer - это MediaPlayer со вкладки System Удачи!! Если что - пишите на romodos@yandex.ru или в русфак Приложение: unit uplayer; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer; type TForm1 = class(TForm) MPlayer: TMediaPlayer; ButOpen: TButton; MFile: TEdit; opd: TOpenDialog; procedure ButOpenClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.ButOpenClick(Sender: TObject); begin if opd.Execute then begin MFile.Text:=opd.FileName; MPlayer.FileName:=opd.FileName; MPlayer.Open; MPlayer.Play; end; end; end. --------- FAQ me off!

Ответ отправил: Romodos (статус: 5-ый класс) Отправлен: 03.09.2005, 19:53

Отвечает: Силантьев Евгений Александрович Здравствуйте, A.K.! Вот вам код рабочего плеера (см. приложение) Приложение: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons, ExtCtrls, MPlayer, ComCtrls, MMSYSTEM, FileCtrl; // эти ссылки вставлены вручную type TForm1 = class(TForm) // кнопки SpeedButton1: TSpeedButton; // Предыдущая композиция SpeedButton2: TSpeedButton; // Воспроизведение/Стоп SpeedButton3: TSpeedButton; // Следующая композиция SpeedButton4: TSpeedButton; // Выбор папки ListBox1: TListBox; // Список композиций (mp3 файлов) MediaPlayer1: TMediaPlayer; // медиа плеер TrackBar1: TTrackBar; // регулятор громкости Timer1: TTimer; Label1: TLabel; Label2: TLabel; Shape1: TShape; // рамка вокруг кнопок procedure FormCreate(Sender: TObject); procedure ListBox1Click(Sender: TObject); procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); procedure TrackBar1Change(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure SpeedButton4Click(Sender: TObject); // эти объявления вставлены сюда вручную procedure Play; // воспроизведение procedure PlayList(Path: string); // формирует список MP3 файлов private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} var SoundPath: string[255]; min,sec: integer; // время воспроизведения volume: LongWord; // старшее слово - правый канал, // младшее - левый. // формирует список MP3 файлов procedure TForm1.PlayList(Path: string); var lpBuf: PChar; // указатель на nul-terminated строку sWinDir: string[128]; // обычная Паскаль строка SearchRec: TSearchRec; // структура SearchRec содержит информацию // о файле, удовлетворяющем условию поиска begin ListBox1.Clear; // сформировать список mp3 файлов if FindFirst(Path + '*.mp3', faAnyFile, SearchRec) =0 then begin // в каталоге есть файл с расширением WAV // добавим имя этого файла в список ListBox1.Items.Add(SearchRec.Name); // пока в каталоге есть другие файлы с расширением WAV while (FindNext(SearchRec) = 0) do ListBox1.Items.Add(SearchRec.Name); end; ListBox1.ItemIndex := 0; end; procedure TForm1.FormCreate(Sender: TObject); begin PlayList(''); ListBox1.ItemIndex := 0; Label1.Caption:=ListBox1.Items[ListBox1.itemIndex]; TrackBar1.Position := 7; // старшее слово переменной volume - правый канал, // младшее - левый volume := (TrackBar1.Position - TrackBar1.Max+1)* 6500; volume := volume + (volume shl 16); waveOutSetVolume(WAVE_MAPPER,volume); // уровень сигнала end; // щелчок на названии произведения procedure TForm1.ListBox1Click(Sender: TObject); begin // вывести в поле метки Label1 имя выбранного файла if not SpeedButton2.Down then SpeedButton2.Down := True; Label1.Caption:=ListBox1.Items[ListBox1.itemIndex]; Play; end; // щелчок на кнопке Воспроизведение procedure TForm1.SpeedButton2Click(Sender: TObject); begin if SpeedButton2.Down then // пользователь нажал кнопку // начать воспроизведение Play else // если кнопка Воспроизведение нажата, // то повторное нажатие останавливает // воспроизведение begin MediaPlayer1.Stop; Timer1.Enabled := False; SpeedButton2.Down := False; SPeedButton2.Hint := 'Play'; end; end; // кнопка К предыдущей procedure TForm1.SpeedButton1Click(Sender: TObject); begin if ListBox1.ItemIndex > 0 then ListBox1.ItemIndex := ListBox1.ItemIndex - 1; Play; end; // кнопка К следующей procedure TForm1.SpeedButton3Click(Sender: TObject); begin if ListBox1.ItemIndex < ListBox1.Count then ListBox1.ItemIndex := ListBox1.ItemIndex + 1; Play; end; // пользователь изменил положение // регулятора громкости procedure TForm1.TrackBar1Change(Sender: TObject); begin volume := 6500* (TrackBar1.Max - TrackBar1.Position); volume := volume + (volume shl 16); waveOutSetVolume(WAVE_MAPPER,volume); end; // воспроизвести композицию, // название которой выделено // в списке ListBox1 procedure TForm1.Play; begin Timer1.Enabled := False; Label1.Caption:=ListBox1.Items[ListBox1.itemIndex]; MediaPlayer1.FileName := SoundPath + ListBox1.Items[ListBox1.itemIndex]; try Mediaplayer1.Open; except on EMCIDeviceError do begin ShowMessage('Ошибка обращения к файлу '+ ListBox1.Items[ListBox1.itemIndex]); SpeedButton2.Down := False; exit; end; end; MediaPlayer1.Play; min :=0; sec :=0; Timer1.Enabled := True; SpeedButton2.Hint := 'Stop'; end; // сигнал от таймера procedure TForm1.Timer1Timer(Sender: TObject); begin // изменить счетчик времени if sec < 59 then inc(sec) else begin sec :=0; inc(min); end; // вывести время воспроизведения Label2.Caption := IntToStr(min)+':'; if sec < 10 then Label2.Caption := Label2.Caption +'0'+ IntToStr(sec) else Label2.Caption := Label2.Caption + IntToStr(sec); // если воспроизведение текущей композиции // не завершено if MediaPlayer1.Position < MediaPlayer1.Length then exit; // воспроизведение текущей композиции // закончено Timer1.Enabled := False; // остановить таймер MediaPlayer1.Stop; // остановить плеер if ListBox1.ItemIndex < ListBox1.Count // список не исчерпан then begin ListBox1.ItemIndex := ListBox1.ItemIndex + 1; Play; end end; // Щелчок на кнопке Папка // Выбрать папку, в которой находятся MP3 файлы procedure TForm1.SpeedButton4Click(Sender: TObject); var Root: string; // корневой каталог pwRoot : PWideChar; Dir: string; begin Root := ''; // корневой каталог - папка Рабочий стол GetMem(pwRoot, (Length(Root)+1) * 2); pwRoot := StringToWideChar(Root,pwRoot,MAX_PATH*2); if not SelectDirectory('Выберите папку', pwRoot, Dir) then Dir :='' else Dir := Dir+''; // каталог, в котором находятся MP3 файлы выбран SoundPath := Dir; PlayList(SoundPath); end; end. --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 5-ый класс) Отправлен: 03.09.2005, 22:55 Оценка за ответ: 5

Вопрос № 25.765

Помогите, пожалуйста! Если кто-нибудь работал с компонентом WebBrowser1 или аналогичным ему, то как можно сохранить просватриваему странчку в виде HTML айла на диске?

Отправлен: 03.09.2005, 17:19 Вопрос задал: Alkhamov Radik (статус: Посетитель) Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: newinfo2005 Здравствуйте, Alkhamov Radik! Это можно узнать в delphiworld.narod.ru в разделе дельфи,интернет или что-то в этом роде и там поищи. Там есть эта статья. И её себе закачивал. Удачи!!! --------- Хочу стать умным и...много денег и халявного инета.

Ответ отправил: newinfo2005 (статус: 5-ый класс) Отправлен: 03.09.2005, 18:08

Отвечает: Denisss Здравствуйте, Alkhamov Radik! Пример в приложении показывает как вызвать диалог сохранения страницы в браузере. Приложение: procedure TForm1.Button1Click(Sender: TObject); var FlName: OleVariant; begin try if not(WebBrowser1.Busy) then begin FlName := WebBrowser1.LocationName + '.html'; WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_PROMPTUSER, FlName); end; except on E : Exception do MessageDlg('ОШИБКА: Не могу показать диалог сохранения!' + #13 + E.ClassName + ': ' + E.Message + '.', mtError, [mbOk], 0); end; end;

Ответ отправил: Denisss (статус: Студент) Отправлен: 03.09.2005, 18:19

Отвечает: sir henry Здравствуйте, Alkhamov Radik! Если нужно сохранить страничку полностью (рисунки, css и т.п.) то так: WebBrowser1.ExecWB(4, 0); Только не спрашивайте, что это означает, т.к. на самом деле TWebBrowser - это внешний (по отношению к Дельфи) элемент ActiveX и конкретное описание команд (тех, что передаются ему с помощью метода ExecWB()), нужно читать в MSDN. :) Можно сделать это перелопатив в поток: Procedure TForm1.SaveHTMLToFile(FileName: string); var PersistStream: IPersistStreamInit; FileStream: TFileStream; Stream: IStream; SaveResult: HRESULT; begin PersistStream := WebBrowser1.Document as IPersistStreamInit; FileStream := TFileStream.Create(FileName, fmCreate); Stream := TStreamAdapter.Create(FileStream, soReference) as IStream; SaveResult := PersistStream.Save(Stream, True); End;

Ответ отправил: sir henry (статус: Профессор) Отправлен: 03.09.2005, 19:41

Отвечает: Romodos Здравствуйте, Alkhamov Radik! Можно так WebBrowser1.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT); Выплывает окошко Сохранить как... --------- FAQ me off!

Ответ отправил: Romodos (статус: 5-ый класс) Отправлен: 03.09.2005, 19:53

Отвечает: Rusland Здравствуйте, Alkhamov Radik! Сохранение открытого в вебброузере html-файла на диск: var HTMLDocument: IHTMLDocument2; PersistFile: IPersistFile; begin HTMLDocument := WebBrowser.Document as IHTMLDocument2; PersistFile := HTMLDocument as IPersistFile; PersistFile.Save(StringToOleStr('FileName.html'), System.False); end; --------- Тише едешь, дальше будешь... от того места куда едешь

Ответ отправил: Rusland (статус: Студент) Отправлен: 05.09.2005, 09:43

Вопрос № 25.772

Здраствуйте ув.эксперты. У меня очень маленький вопрос. Где найти примеры для книги Михаила Краснова ОпенГЛ. А то я не нашел их там где скачал книгу. Спасибо.

Отправлен: 03.09.2005, 20:07 Вопрос задал: newinfo2005 (статус: 5-ый класс) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Denisss Здравствуйте, newinfo2005! Берите тут: http://alex-co.com.ru/delphi/Files/Samples/diskopgl.zip [598 КБ]

Ответ отправил: Denisss (статус: Студент) Отправлен: 03.09.2005, 20:13

Отвечает: Romodos Здравствуйте, newinfo2005! Напишите на romodos@yandex.ru, я вам вышлю по почте SFX архив RAR 700Кб --------- FAQ me off!

Ответ отправил: Romodos (статус: 5-ый класс) Отправлен: 03.09.2005, 20:45

Отвечает: Силантьев Евгений Александрович Здравствуйте, newinfo2005! Попробуйте на сайте издательсва! --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 5-ый класс) Отправлен: 04.09.2005, 00:12

Отвечает: sir henry Здравствуйте, newinfo2005! Скачать можно с сайта издательства BHV: http://www.bhv.ru/books/get_disk_data.php?id=332

Ответ отправил: sir henry (статус: Профессор) Отправлен: 04.09.2005, 04:34

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.