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

Выпуск № 454
от 25.04.2006, 16:35

Вопрос № 40.769

Уважаемые Эксперты! Не подскажите ли: 1) Как и/или где можно оценить стоимость программы, которую сам сделал (авторскую)? 2) И где можно посмотреть на рынок небольших программ, чтобы как-то прицениться? :) С УВАЖЕНИЕМ!

Отправлен: 19.04.2006, 19:42 Вопрос задал: Чернявский Александр (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Ерёмин Андрей Здравствуйте, Чернявский Александр! Не встречал таких сервисов/сайтов. Просто, когда ставите софт, обращайте внимание на цену. Здесь сложно сказать. Иногда маленькая программа продаётся по высокой цене, потому что программ в этой области практически нет; а если вы создадите тот же блокнот, то его и за $5 вряд ли станут покупать, если он не имеет каких-то особенных функций. Могу лично помочь с выбором цены - опишите программу, помогу. Опыт есть. --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 19.04.2006, 20:28

Отвечает: Злоумышленник Здравствуйте, Чернявский Александр! Отвечаю второй раз, в первый во время отправки ответа потушили свет в доме, мать иху. 1) Делаешь прогу, выкладываешь как бесплатную, если качают, значит нравится и нужная, начинаешь продавать. Это можно сделать на сайтах: http://vidon.ru http://soft.oszone.ru http://freesoft.ru http://softobzor.ru 2) На этих же сайтах предлагаются платные проги, можешь прицениться Шлю пока опять свет не выключили

Ответ отправил: Злоумышленник (статус: 6-ой класс) Ответ отправлен: 19.04.2006, 20:39 Оценка за ответ: 4 Комментарий оценки: Спасибо за ответ ;) И часто у Вас свет в доме гасят? :D

Отвечает: AnD1 Здравствуйте, Чернявский Александр! Примерно год назад (но информация актуальна и сейчас) журнал "Хакер Спец" выпустил один очень интересный номер "Программирование как бизнес". В нем как раз расписаны очень подробно все Ваши вопросы. (http://www.xakep.ru/magazine/xs/053/default.asp) Если собираетесь заниматься коммерческим кодингом, то есть смысл почитать книгу Станислава Жаркова "Shareware: профессиональная разработка и продвижение программ".

Ответ отправил: AnD1 (статус: 4-ый класс) Ответ отправлен: 20.04.2006, 08:39 Оценка за ответ: 5 Комментарий оценки: Большое спасибо за инфу!

Вопрос № 40.770

Здравствуйте эксперты! как создать .DBF-файл ?

Отправлен: 19.04.2006, 19:44 Вопрос задал: Mo-skin (статус: 1-ый класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ерёмин Андрей Здравствуйте, Mo-skin! Если вы хотите сделать табличку базы данных, в которой изначально есть некоторые данные, т.е. *.DBF-файл, то можно воспользоваться тем же Excel. Просто заполните данные по столбцам и строкам без всякого оформления, затем Файл - Сохранить как. В списке "Тип файла" - "DBF 4/3/2". --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин Андрей (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI: Всё для программиста. ICQ: 286837644 ---- Ответ отправлен: 19.04.2006, 20:32 Оценка за ответ: 4

Отвечает: Злоумышленник Здравствуйте, Mo-skin! Если я правильно понял, ты хочешь создать таблицу dbf Приложение: procedure MakeDataBase; begin with TTable.Create(nil) do begin DatabaseName := 'c: emp'; (* alias *) TableName := 'test.dbf'; TableType := ttDBase; with FieldDefs do begin Add('F_NAME', ftString,20,false); Add('L_NAME', ftString,30,false); end; CreateTable; { create a calculated index } with IndexDefs do begin Clear; { don't forget ixExpression in calculated indexes! } AddIndex('name','Upper(L_NAME)+Upper(F_NAME)',[ixExpression]); end; end; end;

Ответ отправил: Злоумышленник (статус: 6-ой класс) Ответ отправлен: 19.04.2006, 20:39 Оценка за ответ: 5 Комментарий оценки: Luxuriously!

Вопрос № 40.776

Здравствуйте уважаемые эксперты! Возникла проблема с решением одной задачи по теории вероятности, может конечно следовало немного не в этот раздел написать, но решить надо всё-таки на Delphi. Прошу помочь. Приложение: Разработать модель случайного блуждания (модель "пьяницы"). Блуждание задается по правилу: если случайное число из отрезка [0,1] меньше 0,5, то делается шаг вправо на расстояние h, в противном случае - влево. Распределение случайных чисел принять равновероятным. Решить задачу: какова вероятность при таком блуждании удалиться от начальной точки на n шагов?

Отправлен: 19.04.2006, 21:19 Вопрос задал: Mustsee (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 3)

Отвечает: Latent Здравствуйте, Mustsee! Еслия правильно вас понял, то это делать надо так: смотреть приложение. Приложение: var Pred,Par:integer; BT,OT:Real; REZ:String; Form1: TForm1; procedure TForm1.Button1Click(Sender: TObject); begin if Edit2.Text='' then Par:=0; if Edit1.Text='' then Pred:=0; Pred:=StrToInt(Edit1.Text); Par:=StrToInt(Edit2.Text); BT:=(4*(((((Pred-1)*(Pred-1))-(Pred-1))/2)+(Pred-1)))+(Pred+1)+(3*Pred); OT:=(4*((((Par-1)*(Par-1))-(Par-1))/2+(Par-1)))+(Par+1)+(3*Par); REZ:=FloatToStr(OT/BT); Label3.Caption:='Ответ '+REZ; end; --------- - Нет ничего невозможного -

Ответ отправил: Latent (статус: 1-ый класс) Ответ отправлен: 20.04.2006, 16:42

Вопрос № 40.790

Здравствуйте уважаемые эксперты. Кто может поделиться оптимальным кодом решения систем линейных уравнений методом Гуса или Зейделя. Размерность матрицы порядка 2000х2000.

Отправлен: 19.04.2006, 23:36 Вопрос задал: Енин А.Н. (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, Енин А.Н.! Я отвечал на подобный вопрос только предложил нахождения детерминанта методом Гауса в вопросе №39822. Теперь я доработал алгоритм и он работает с использованием динамических массивов так что должо работать и 2000х2000. Если нуждаетесь пишите на почту!!!(так как алгоритм весьма велик) --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 3-ий класс) Ответ отправлен: 20.04.2006, 10:43

Отвечает: Лучников Ю.В. Здравствуйте, Енин А.Н.! Готовый алгоритм решения систем линейных уравнений методом Гаусса вы можете взять ТУТ. Успехов!

Ответ отправил: Лучников Ю.В. (статус: *Мастер-Эксперт) Россия, Киров WWW: нЧат - Наш Чат! ICQ: 176308580 ---- Ответ отправлен: 20.04.2006, 16:45

Вопрос № 40.795

Здравствуйте. Вот нужно вывести текст (цифры) на Form1.Image1 Как это сделать? Например, для осей координат. Для статичного текста (буквы 'X' и 'Y') по осям я уже сделал через обычный Form1.Label1 и Form1.Label2, а вот надписи на делениях я пока не сделал. Нужно, короче, с изменяемым диапазонами чисел. Пример, ну стандартно, от 0-10 или от 55-124 Как мне это лучше сделать? Может как-то через Create.Label ? Или вывод текста в TCanvas Подскажите, пожалуйста.

Отправлен: 20.04.2006, 01:28 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Полховский Александр Владимирович Здравствуйте, AlexD! Делать всё можно в Image.Canvas. И незачем пользоваться Label'ами. Если хотите сетку координат отельно от изображения - используйте второй Image как слой (только прозрачность ему укажите). Вывод текста осуществляется процедурами TextOut и TextRect. Думаю с их применением проблем не будет. Параметры текста задаются в Canvas.Font. Циклом пройдитесь по координатам и наштопайте цифру под каждым делением (ну или как Вам надо). --------- Спасём нашу хрупкую планету !

Ответ отправил: Полховский Александр Владимирович (статус: Практикант) Ответ отправлен: 20.04.2006, 03:12

Отвечает: Дмитриев Алексей Иванович Здравствуйте, AlexD! Image1.Canvas.TextOut(x, y, IntToStr(z)); x, y - координаты вывода, IntToStr(z) - число, преобразованное в текст (или любой текст)

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 23.04.2006, 16:59

Вопрос № 40.800

Здравствуйте! Подскажите, как закрыть приложение Excel, не сохраняя изменений(и чтобы не выводилось окно с вопросом: сохранить или нет). Заранее благодарен. Приложение: XLApp := CreateOleObject('Excel.Application'); XLApp.Workbooks.Add; ....здесь заполняем таблицу... XLApp.Worksheets.Printout; XLApp.Workbooks.Quit; XLApp := Unassigned;

Отправлен: 20.04.2006, 04:19 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Kazakh Здравствуйте, Андрющенко Вячеслав Васильевич! Перед XLApp.Workbooks.Quit; вставьте строчку XLApp.DisplayAlerts:=False; То есть чтобы получилось так: XLApp := CreateOleObject('Excel.Application'); XLApp.Workbooks.Add; .....здесь заполняем таблицу... XLApp.Worksheets.Printout; XLApp.DisplayAlerts:=False; XLApp.Workbooks.Quit; XLApp := Unassigned; --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 6-ой класс) Ответ отправлен: 20.04.2006, 07:00

Отвечает: sir henry Здравствуйте, Андрющенко Вячеслав Васильевич! Перед тем как выйти, поставте в рабочей книге пометку, что она уже сохранена: ActiveWorkbook.Saved := True; после этого можно спокойно закрывать Excel.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 20.04.2006, 10:20

Вопрос № 40.802

Уважаемые эксперты, подскажите пожалуйста: каким образом в Delphi информацию из базы данных можно представлять графически?

Отправлен: 20.04.2006, 06:26 Вопрос задал: Сапожников Владимир Алексеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: nimoid Здравствуйте, Сапожников Владимир Алексеевич! Не совсем понятен вопрос.. Что ты имеешь ввиду под _представлять_графически_ ? Если ты про рисунки, то их надо держать в полях типа BLOB. --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 7-ой класс) Ответ отправлен: 20.04.2006, 08:30

Отвечает: sir henry Здравствуйте, Сапожников Владимир Алексеевич! Если нужно данные из БД представлять в виде графиков-диаграмм, то можно воспользоваться компонентом TDBChart. Если Вам нужно в БД хранить обычные картинки, то храните их в полях типа BLOB, а потом загружайте в TImage. Уточните, что Вы имеете в виду.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 20.04.2006, 10:16

Вопрос № 40.824

Добрый день. Мы делаем две программы для тестирования по LAN, пишем на Delphi 7 с использованием INDY 10.0. Одна програ - сервер, другая клиент. Суть работы: много клиентов подключаются к серверу, он (его пользователь) принимает решения кому какой тест отправить, потом нажимает кнопку и всем, кому назначен тест пересылаюся данные. Реализовано так: поскольку сервер (IdTCPServer) работает только по запросам, то клиент (IdTCPClient) по таймер отправляет сообщение о том, что он ждет тест, сервер проверяет можно ли ему что-то отправить, если можно то *тут же* отправляет. Проблема: Когда подключены два и более клиента, то они не реагируют на уже отправленные сервером данные, т.е. вроде сервер ниче не отправлял. Но потом, спустя время равное времени с начала их подключения к серверу до отправки севером данных, они таки принимают данные. Т.е. если клиенты подключились к серверу и он *почти сразу* отправил им тесты они почти сразу их и получат, если *не сразу* тогда они будут ждать.. Проблема не наблюдается когда клиент один, нет разницы во времени простоя.. Уже никак немогу понят, отладить почти никак. Использую лог файл из Indy на сервеве, там показано, что сервер сразу отправил данные клиентам. Может я что-то не так делаю, подкажите пожалуйста, в приложении куски кода. Спасибо. Приложение: // Этот блок вызывается по таймеру в кленте IdTCPClient1.IOHandler.WriteLn(MES_WAIT_FOR_TEST); msg:= IdTCPClient1.IOHandler.ReadLn; // Если сервер готов передать тест if msg = MES_INCOMING_TEST then begin //... end; //----------- //Это обработка запросов сервером procedure TfrmMain.IdTCPServer1Execute(AContext: TIdContext); var cmd: string; begin cmd:= ''; with AContext.Connection do begin try cmd:= IOHandler.ReadLn; except on E: EIdConnClosedGracefully do begin HandleClientDisconnect(AContext.Connection.IOHandler.Host); end; end; // Клиент запросил регистрацию if cmd = MES_REG_INFORMATION then begin Registration(AContext); end else // Клиент запросил получение теста if cmd = MES_WAIT_FOR_TEST then begin SendTestToClient(AContext); end else // Клиент закончил тестирование и передал результаты if cmd = MES_RESULT_INFORMATION then begin ClientHasFinished(AContext); UpdateUserList; end else if cmd = MES_TESTING_ABORT then begin if AContext.Connection.Connected then AContext.Connection.Disconnect; HandleClientDisconnect(AContext.Connection.IOHandler.Host); UpdateUserList; end;

Отправлен: 20.04.2006, 10:31 Вопрос задал: 1634 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Bochvarov NikB Здравствуйте, 1634! А если Вьи пишете прогу, почему нелзя отладит? Можете ставит свой лог в свой файл везде, а ползуя GetTickCount можете точно знать что, где, когда.

Ответ отправил: Bochvarov NikB (статус: 7-ой класс) Ответ отправлен: 20.04.2006, 12:15 Оценка за ответ: 4

Вопрос № 40.825

Здравствуйте! Подскажите, пожалуйста, как при нажатии на кнопку запустить help-файл приложения(.chm)? Заранее спасибо!

Отправлен: 20.04.2006, 10:35 Вопрос задал: Андрющенко Вячеслав Васильевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, Андрющенко Вячеслав Васильевич! Вот попробуйте такую команду: ShellExecute(Handle,nil,'hh.exe','tags.chm',nil,SW_SHOWNORMAL); Только изначально нужно подключить: uses shellapi; --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 3-ий класс) Ответ отправлен: 20.04.2006, 10:54

Отвечает: AnD1 Здравствуйте, Андрющенко Вячеслав Васильевич! Можно добавить проверку на наличие файла помощи uses ShellAPI; ... if fileexists ('help.chm') then shellexecute (Handle,'open','help.chm', nil,SW_SHOWNORMAL) else showmessage('Файл помощи не найден');

Ответ отправил: AnD1 (статус: 4-ый класс) Ответ отправлен: 20.04.2006, 14:35

Вопрос № 40.830

Уважаемые эксперты, подскажите как сделать так, чтобы информацию из базы данных можно было представлять графически, т.е можно ли в DBGrig, допустим, вместо текстовых данных в столбцах и строках хранить картинки, если нет - то как это можно сдеать (что такое BLOM)

Отправлен: 20.04.2006, 11:00 Вопрос задал: Сапожников Владимир Алексеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Bochvarov NikB Здравствуйте, Сапожников Владимир Алексеевич! В TDrawColumnCellEvent можете сделать все, что угодно :)

Ответ отправил: Bochvarov NikB (статус: 7-ой класс) Ответ отправлен: 20.04.2006, 12:17

Отвечает: nimoid Здравствуйте, Сапожников Владимир Алексеевич! Я уже вроде бы отвечал вам... Только не BLOM, а BLOB - Binary Large Object. В таком поле можно хранить любые данные, в т.ч. картинки. --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 7-ой класс) Ответ отправлен: 21.04.2006, 11:08

Вопрос № 40.858

Как изменить шрифт в MesageDLG или в ShowMessage.

Отправлен: 20.04.2006, 15:37 Вопрос задал: Aslanov Ceyhun Yusif (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Kazakh Здравствуйте, Aslanov Ceyhun Yusif! Я думаю шрифт берется из настроек (оформление) Windows. --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 6-ой класс) Ответ отправлен: 20.04.2006, 15:49

Отвечает: Устинов Сергей Евгеньевич Здравствуйте, Aslanov Ceyhun Yusif! Эти окна используют системный шрифт Windows, и поэтому для изменения в них шрифта нужно изменить системный шрифт. По-другому по-моему - никак. --------- Ответы на все вопросы - на сайте www.ya.ru :)

Ответ отправил: Устинов Сергей Евгеньевич (статус: 4-ый класс) Ответ отправлен: 20.04.2006, 15:59

Отвечает: Дмитриев Алексей Иванович Здравствуйте, Aslanov Ceyhun Yusif! Напиши свой ShowMessage, ибо никак.

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 23.04.2006, 16:39

Вопрос № 40.865

Здравствуйте Все! Пишу прогу которая следит за каталогом, на наличие в ней любых файлов. Если в каталоге появляется файл то выдаю звуковой сигнал. Если файлы удалили то сигнал прекращается. Проблема в том как отследить что файлов в каталоке больше нет? Приложение: if not DirectoryExists(DIR1)then Begin While (DirectoryExists(DIR1)) = False do Begin Trevoga; end End //Êîíåö ïðîâåðêè íà ñóù äèðèêòîðèè else if FindFirst(Dir1+'*.*',faAnyFile,SR)=0 then Begin While (SR.name<>'..') do FindNext(SR); End; If FindNext(SR)=0 Then Begin While (SR.name<>'..') or (DeleteFile(SR.name)=False) do //Ïîÿâèëèñü ôàéëû Begin PIN:=PChar(PIN1+'notify.wav'); PlaySound(PIN,0,SND_FILENAME); FindNext(SR); end; end; FindClose(SR); FreeOnTerminate:=True; RN:=False; end;

Отправлен: 20.04.2006, 16:32 Вопрос задал: Michail (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Полховский Александр Владимирович Здравствуйте, Michail! Значит так. Вам нужно сделать функцию. которая будет просматривать содержимое папки. Если в ней что-то есть, то будет вызывать процедуру оповещения (или что-то ещё). Для начала, нужно "открыть" поиск: FindFirst(Dir1+'*.*', faAnyFile, SR); Затем, надо повторять поиск до тех пор, пока либо не будет найден какой-нибудь файл, либо пока функция поиска не выдаст ненулевой результат. При этом, если файл будет отличаться от '.' и '..' будем вызывать оповещение: var somefiles: boolean ... somefiles:=false; repeat if (SR.Name<>'.') and (SR.Name<>'..') then somefiles:=true; until (findnext(SR)<>0) or somefiles; findclose; if somefiles then trevoga else stoptrevoga;//остановить оповещение, если файлов нет Если Вам при этом сразу надо удалять файлы, то в процедуре trevoga напишите код удаления: FindFirst(Dir1+'*.*', faAnyFile, SR); repeat if (SR.Name<>'.') and (SR.Name<>'..') then DeleteFile(SR.name) until (findnext(SR)<>0); findclose; Можно, конечно, и по ходу сканирования удалять. var somefiles: boolean ... somefiles:=false; repeat if (SR.Name<>'.') and (SR.Name<>'..') then somefiles:=not(DeleteFile(SR.name)); until (findnext(SR)<>0) or somefiles;//если удалить не удалось, то ставим индикатор наличия файлов в состояние "вкл." findclose; if somefiles then trevoga else stoptrevoga;//остановить оповещение, если файлов нет --------- Спасём нашу хрупкую планету !

Ответ отправил: Полховский Александр Владимирович (статус: Практикант) Ответ отправлен: 20.04.2006, 17:43

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.30 от 09.04.2006