Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
adg208
В чем проблема?
Делаешь что-то типа
select * from MyTable order by МестоРасположения
И прокатываешь по полученной выборке сверху вниз.
При смене этого МестоРасположения - выводишь его отдельной строкой, а затем - все строки выборки с этим МестоРасположения.

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 11:09 07-11-2007
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Скорее вопрос по части, что посоветуете? Задача состоит в экспорте данных в Автокад. Понятно что могут быть наработки, но что есть из того, что реально помогает? Есть ли готовые компоненты, так как выводить надо будет много всякой фигни? Интересуют даже те, которые надо покупать. Всё что знаете.
 
Заранее спасибо.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 15:37 07-11-2007
sunwolf13

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Да для меня эти вопросы сложноваты, и не надо ругаться я еше только начинающий
програмер Если не в лом как некоторым ответьте пожалуйста или подскажите где лежит
учебник именно по этим темам В поисковиках я нашел только тупые учебники в которых этих вопросов нет (((((((((((((((((((((
Вот мои вопросы:  
1.Как отловить из своей программы нажатия определенных клавиш,  
происходящие в окне другой программы? Именно клавиш на клавиатуре,  
я не имею ввиду кнопки на чужой форме.  
2.Возможно ли с помощью программы на Delphi изменить  
адрес стартовой страницы Internet Explorera?  
3.Как получить в своей проге список процессов которые сейчас в памяти?  
4.Как эмулировать с помощью своей проги  
нажатия клавиш, щелчки мыши в окне чужой программы  
(то есть чтобы чужая программа думала что пользователь реально  
нажимает клавиши и щелкает мышкой в её окне)
Вообще обидно - первый свой вопрос на форуме задал в отдельной теме а меня
на гугл послали И сюда вот ссылку еще кинули.... Если уж здесь не ответят
то тогда я чего-то не понял насчет Руборда

Всего записей: 3 | Зарегистр. 29-10-2007 | Отправлено: 09:35 08-11-2007
SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sunwolf13

Цитата:
Да для меня эти вопросы сложноваты, и не надо ругаться я еше только начинающий
програмер Если не в лом как некоторым  

В лом. Ты как начинающий, вместо того чтобы САМОМУ прочитать FAQи озадачиваешь других. Твое послание в переводе на нормальный язык: "Я не хочу читать FAQ-и, я их читать не буду и обижаюсь, если меня туда направляют. Я ХОЧУ ЧТОБЫ МНЕ ВСЕ ЧТО Я ХОЧУ УЗНАТЬ ИЗ FAQ-ов ВЫДРАЛИ И ПОКАЗАЛИ".  
Многовато хочешь. Тут никто никому ничего не должен, а потому сам поработай хотя бы мышкой. delphiworld, delphimasters и т.п. тебе в руки .
 

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 10:54 08-11-2007
ymg2000



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sunwolf13
Посмотри это...
Подробнее... [?]
и это...
Подробнее... [?]
 

Всего записей: 2391 | Зарегистр. 24-08-2007 | Отправлено: 10:54 08-11-2007
SERGE_BLIZNUK

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
sunwolf13
полностью поддерживаю SergeBS - в книжках по дельфи подобное искать вряд ли получится,а вот FAQ-ов с ответами на подобные вопросы - пруд пруди...

Цитата:
delphiworld, delphimasters и т.п.  

delphiworld - это более 5000 статей, с поисковой системой...
ссылка - http://delphiworld.narod.ru/dw.html
 
 
 

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 11:06 08-11-2007
TankMan



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Не могу понять в чем загвоздка. Суть программы такова, чтобы, используя TidFTP, копировать список файлов указанных в Memo в директорию указанную в ePathtoCopy. Директории может и не быть, поэтому если что мне нужно ее создать. Вот и написал такую маленькую функцию CahngeFullDir. Все вроде бы нормально, исполняется и выполняется, но только один раз после запуска приложения. Когда я нажимаю второй раз на эту же кнопу, то в строчке "Вот здесь" , выдается ошибка причем почему-то разные ошибки то Acces violation at adress xxxxx то EPrivelege и что-то по поводу привелегий (сейчас уже не могу добиться ее отображения)
одно меня мучает, не могу понять, я ведь не зря уже разделил целевую строчку директории на две, в два захода чтобы дошло до нужно директории, а он проходит первое использование CahngeFullDir (полностью) и при втором заходе выдает ошибку на той строчке после 1го прохода ее рекурсивно....  и даже после этой ошибки, я еще раз нажимаю кнопку и опять повторяется тоже самое - первый раз CahngeFullDir проходит нормально а второй раз нет
Не могу понять... в чем же может быть дело подскажете?  
 
Подробнее... [?]

Всего записей: 599 | Зарегистр. 01-06-2002 | Отправлено: 12:14 08-11-2007 | Исправлено: TankMan, 16:54 08-11-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TankMan
Есть функция ForceDirectories - сама создаст нужную тебе цепочку вложенных папок.
ЗЫ. Если спрашиваешь про создание папок - приведи неработающий код с созданием, не надо кидать листинг всей программы, не нужен он никому, да и тег more никто не отменял

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 15:02 08-11-2007
TankMan



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
RomanTim
Я редко сюда пишу, вот и не знал про тег more ...
И про ForceDirectories я тоже не знал .. вечером попробую заранее спасибо.
 
... а так, на будущее, может кто знает, в чем ошибка?

Всего записей: 599 | Зарегистр. 01-06-2002 | Отправлено: 16:54 08-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Решил покрасить диалог и статики на нем в белый цвет. Но вот беда - не знаю как поменять стандартный цвет меню... Подскажите что можно сделать. Меню упомянул в ресурсе диалога. Диалог смотрится хорошо, а вот с цветом полосы меню проблема. Он стандартный 3dface...

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 22:40 08-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
И еще вопрос. Решил для себя сделать программку для определения размера файла через урл ссылки. Использовал тот самый пример:

Код:
 
function GetUrlInfo(const dwInfoLevel: DWORD; const FileURL: string):
string;
var
  hSession, hFile: hInternet;
  dwBuffer: Pointer;
  dwBufferLen, dwIndex: DWORD;
begin
  Result := '';
  hSession := InternetOpen('STEROID Download',
                           INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
  if Assigned(hSession) then begin
    hFile := InternetOpenURL(hSession, PChar(FileURL), nil, 0,
                             INTERNET_FLAG_RELOAD, 0);
    dwIndex  := 0;
    dwBufferLen := 40;
    if HttpQueryInfo(hFile, dwInfoLevel, @dwBuffer, dwBufferLen, dwIndex)
      then Result := PChar(@dwBuffer);
    if Assigned(hFile) then InternetCloseHandle(hFile);
    InternetCloseHandle(hsession);
  end;
end;
 
GetUrlInfo(HTTP_QUERY_CONTENT_LENGTH, 'http://files.ru/files.zip');
 

 
Но вот беда(( Оно не показывает полностью размер файла, если у того размер больше 4 цифр в байтах. И всегда в таких случаях идет прямая полоса(( Что надо сделать?

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 02:11 09-11-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
delover автокад поддерживает OLE-автоматизацию,и даже имеет встроенный VBA. Так что "экспортировать" туда не сложнее чем в эксель, если знаешь объектную модель. Все примеры идут в комплекте.  

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 02:13 09-11-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TankMan
Вчера неправильно понял где ты папки создавать собираешься, на FTP ForceDirectories разумеется работать не будет.  
Посмотрел твой ChangeFullDir - падать он у меня на FTP от IIS не стал, но не работал. Поэтому переписал в такой вид [?]

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 08:10 09-11-2007 | Исправлено: RomanTim, 08:11 09-11-2007
TankMan



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Мдааа... написано конечно более "разумно" чем у меня, но суть та же к сожалению у меня и результат тот же - Access violation at address 00AE7137 может компонент инди у меня старый? не подскажете, где обновить можно?
 
Добавлено:
Ведь в первый раз у меня все нормально проходит, да сколько угодно раз может проходить эта функция, но только после перезапуска приложения ...

Всего записей: 599 | Зарегистр. 01-06-2002 | Отправлено: 09:23 09-11-2007
TankMan



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
... мда.. вот я и выяснил в чем дело, оказалось всетаки нужно было весь код выкладывать
 

Код:
 
procedure TForm1.idportalWork(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Integer);
begin
if Assigned(FStream) then
begin
ProgressBar1.Max:=FStream.Size;
ProgressBar1.Position:=FStream.Position;
end;
end;
 

 
Здесь я как уже видно, отображаю процесс передачи данных на фтп в прогресс баре.
Но почему-то, если я копирую первый то все проходит нормально ведь в приведенном выше коде, я после каждой передачи освобождаю FStream командой free, только вот почему после второго запуска процедуры передачи данных я узнаю, что FStream почему-то всеравно остается чему-то определенным, и соответственно программа пытается получить из него size и т.д. я пробовал в процедуре PutFile уже и Destroy ставить = ничего не выходит - FStream почему-то остается присвоенным как его полностью "освободить"?

Всего записей: 599 | Зарегистр. 01-06-2002 | Отправлено: 11:46 09-11-2007
delover

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jONES1979
Спасибо большое. Это многое решает. Если это OLE-автоматизация, то я точно разберусь. Просто решал - брать заказ или нет. Сейчас думаю, что это реально.

Всего записей: 1395 | Зарегистр. 25-06-2007 | Отправлено: 11:56 09-11-2007
RomanTim

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
TankMan
Assigned - это просто проверка на nil, поэтому или делай  
FStream.Free;
FStream := nil;
или
FreeAndNil(FStream);

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 11:57 09-11-2007
Maks150988



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Может кому и пригодится примерчик создания программы на WinApi, которая определяет размер файла по URL ссылке. Сделал по тупости за несколько минут... Строго не судите...
 
Читать дальше.. [?]

Всего записей: 836 | Зарегистр. 23-12-2006 | Отправлено: 14:33 11-11-2007
kalkin

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Натолкнулся на проблему помогите разобраться:
С помощью Indy пытаюсь реализовать ssl +sock5
1)Для этого создал IdSSLIOHandlerSocket, IdSocksInfo, IdHTTP, взаимно их связал.
2)Библиотеки для поддержки SSL в Indy загрузил
 
При указании сокса и порта и выполнении операции Get выдается следующая ошибка:
Project raised exception class EAccessViolation with message
'Access violation at address 00475AB8 in module xxxx.exe.'
Read of address 00000014'.
 
При отключении сокса (в SocksInfo устанавливаю Version:=svNoSocks) сайт открывается без ошибок.
При подключении сокса, но при отключенном SSL режиме (просто http://) сайт также открывается нормально.
При одновременном https:// и наличии сокс-сервера выдается ошибка.

Всего записей: 56 | Зарегистр. 19-05-2006 | Отправлено: 22:31 11-11-2007
adg208

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как сделать так чтобы при запросе:
 
 ADOQuery1.SQL.Add('Select *');
  ADOQuery1.SQL.Add('from Si');
  ADOQuery1.SQL.Add('Where ZavN Like '''+Edit1.Text+'''');
  ADOQuery1.Active:=True;
 
В DBGrid не отображалась одна найденная строка, а эта строка всреди остальных строк получала фокус?

Всего записей: 159 | Зарегистр. 26-12-2003 | Отправлено: 09:58 12-11-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru