ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Продолжение темы Вопросы по Delphi (до версии 2009) - часть 5 Познаем сами, помогаем другим... Обсуждаем вопросы, не связанные с юникоидными версиями Delphi - для этого есть соответствующая тема (см. ссылки ниже).   Правила топика: Прежде чем спрашивать: Желательно изучить вопрос, попытаться найти ответ в прилагаемых мануалах, хелпах и анализируя исходники. Выполнить поиск по топику (открыть "Версия для печати" и поискать ответ там). Применить фильтр по разделу "Прикладное программирование". Ответы на многие старые вопросы могли быть даны в отдельных темах. Продумайте вопрос. На поверхностные вопросы вы получите поверхностные ответы, или вообще ответов не получите. Желательно указывать версии используемого компилятора и операционной системы. Прежде чем отвечать: Если не можете помочь, не мешайте. Если уж вы отвечаете на вопрос, давайте ответ по сути. Если вы не уверены, так и говорите! Ошибочный, но авторитетно звучащий ответ хуже, чем отсутствие ответа. Задавайте дополнительные вопросы, чтобы получить больше информации. Отсутствие ответа не равносильно игнорированию - иногда участники форума просто не знают ответ. Повторная посылка вопроса не приветствуется. Посты типа "неужели никто не знает ответа..." или "может мне все-таки кто-нибудь ответит" недопустимы.   Все большие куски кода (более 5 строк) оформляем в тег [morе] дабы уменьшить размер поста. FAQ по тегу [morе]. Некоторые "родственные" топики:   Вопросы по Delphi (версии 2009-2010 Weaver) Вопросы по компонентам для Delphi, C++ Builder Использование DevExpress Вопросы по Ehlib Компоненты и утилиты для Delphi/BCB/FreePascal/Lazarus - только Open Source Коммерческие компоненты и утилиты для Delphi/BCB кабак программистов :)   См. также: Некоторые полезные ресурсы о Delphi   И старайтесь, чтобы ваш код не попал сюда :) Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 05:13 19-05-2010 | Исправлено: akaGM, 02:33 15-07-2020

YuriyRR Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору OOD Цитата: гонять поиск окна по заголовку окна пока оно не появиться? Думаю что так и есть я бы еще вставил в цикл sleep() и ограничил кол-во циклов типа таймаут   Добавлено: Вариант с  WaitForInputIdle мне тоже очень нравится. Напиши как он пройдет с аутглюком. Всего записей: 518 | Зарегистр. 07-06-2007 | Отправлено: 03:07 21-12-2011

wasilissk Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Frodo_Torbins Да, конечно, писал по памяти, там у меня еще CreateProcess хэндл возвращает ну ладно, в качестве тегов сгодится... Всего записей: 293 | Зарегистр. 25-12-2006 | Отправлено: 06:35 21-12-2011

OOD Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору YuriyRR Цитата: Напиши как он пройдет с аутглюком что то не очень Код:   procedure TForm1.FormCreate(Sender: TObject); var h: HWND; PI: TProcessInformation; SI: TStartupInfo;   begin FillChar(SI, SizeOf(SI), 0);   SI.cb := SizeOf(SI);     if CreateProcess(nil, 'C:\Program Files\Microsoft Office\Office14\OUTLOOK.exe', nil, nil, False, 0, nil, nil, SI,     PI) then   begin     WaitForInputIdle(PI.hProcess, INFINITE);     H := FindWindow(nil, 'Outlook сегодня - Microsoft Outlook');     if SetForegroundWindow(H) then showMessage('test');   end   else showMessage('beda'); end;     Всего записей: 3388 | Зарегистр. 20-05-2006 | Отправлено: 11:30 21-12-2011

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору OOD Что именно не работает?   На мой взгляд (просто уже сталкивался с таким поведением) проблема в том, что окно не выходит на передний план, то есть данный кусок Цитата: if SetForegroundWindow(H) then как будто не отрабатывает. Посмотри в интернете как сделать force foreground window, так как по умолчанию при использовании этой функции начиная с винХР вроде бы, окно начинает просто мигать в таскбаре. Если не в этом дело - то уточни ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 11:51 21-12-2011

alfaservice Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Нужна помощь, совет... есть текстовый файл структура такая:   Код:   From: имя номер                         Date: 06 Dec 2009 15:16:38                         Text:     To: имя номер                         Date: 06 Dec 2009 15:16:38                         Text:       разделено пустыми строками. Нужно перегнать все это дело в базу, упорядочить вообщем инфу, так как номера есть одинаковые. Как вариант хотел попробовать запихнуть в массив так:   Код:   for j := 1 to s.Count - 1 do    begin if s.Strings[j]='#' then   begin Text[h]:=s.Strings[j+1];   Text1[h]:=s.Strings[j+2]; Text2[h]:=s.Strings[j+3]; inc(h);     А потом из массива раскидать по таблице. Но но в данном коде идет поиск начала нового блока по разделителю # а у меня пустая строка.   Всего записей: 186 | Зарегистр. 12-01-2007 | Отправлено: 23:33 03-01-2012 | Исправлено: alfaservice, 23:35 03-01-2012

ShIvADeSt Moderator Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Corsairs Цитата: if s.Strings[j]='' then лучше заменить на   if Trim(s.Strings[j])='' then это убережет от пробелов и символов перевода каретки и тп. ---------- И создал Бог женщину... Существо получилось злобное, но забавное... Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 06:24 04-01-2012

085 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору запросы с переменной в селекте невозможны? Например SELECT :var1  FROM  table WHERE Всего записей: 79 | Зарегистр. 17-09-2008 | Отправлено: 08:09 04-01-2012

mmm_home Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ShIvADeSt Цитата: это убережет от пробелов и символов перевода каретки и тп. но если где-то в тексте попадется 2 пустые строки, то вся конструкция работать не будет   alfaservice раз уж четких разделителей блоков нет, то наверное лучше   if (pos('from:',LowerCase(s.Strings[j])>0 or pos('to:',LowerCase(s.Strings[j])>0) then Всего записей: 52 | Зарегистр. 21-11-2009 | Отправлено: 08:36 04-01-2012

alfaservice Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору mmm_home ShIvADeSt Corsairs   Спасибо! Попробую... В данном случае в строке Text: находится текст смс сообщений.     И блоки действительно идут по три строки и между ними строго пустая строка одна.   From: Date: Text     Всего записей: 186 | Зарегистр. 12-01-2007 | Отправлено: 11:45 04-01-2012

sammozg Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Люди добрые, не подскажите, а может кто и сталкивался с проблемой, почему TcpClient.Receiveln; укорачивает ответ до пустого байта, в смысле отправляется  7F FE 02 00 40 04 15 27, а приходит только 7F FE 02, просмотрел все, что только попадалось мне в Инете, нигде ничего про это не сказано. Сразу отвечу на несколько вопросов которые могут возникнуть: В порт приходит нужное, а вот в переменную записывается укороченное, CRLF пробывал ставить разные не помогло.   Всего записей: 90 | Зарегистр. 30-06-2011 | Отправлено: 13:56 06-01-2012

sammozg Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору procedure TForm1.Button1Click(Sender: TObject); var m: string; begin   TcpClient.Sendln(HexToStr(clienthex.Text));   while TcpClient.WaitForData(1000) do m:=TcpClient.Receiveln;   if m = '' then ShowMessage('нет ответа от сервера') else begin   while m<>'' do   begin   ListBoxClient.Items.Add(StrToHex(m));   label2.Caption:=m;   m:=TcpClient.Receiveln;   end; end; end; Вот код клиента Всего записей: 90 | Зарегистр. 30-06-2011 | Отправлено: 14:35 06-01-2012

vivasem Newbie Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Помогите (напишите пример) с условием, нужно сделать проверку таким образом: if a<b (но разница между а и b больше 4000000000) then begin... Это часть функции для подсчета трафика с IPHLPAPI, дело в том что при достижении счетчика IPHLPAPI 4гб инфа обнуляется. Хочу написать счетчик циклов IPHLPAPI, но пока трафик не превысит 5мб после обнуления, счетчик циклов почемуто срабатывает.   вот ламерский кусок описаного кода: begin         trafbitin:=Table.Table[i].dwInOctets;         trafbitout:=Table.Table[i].dwOutOctets;           iii:=0;           iii:=cardinal(Edit13.Text);           Edit16.Text:=inttostr(trafbitin);          if trafbitin<iii          then           begin             kol:=strtoint(Edit14.Text);             na:=strtoint('1');             all:=kol+na;             Edit14.Text:=inttostr(all);             Edit13.Text:=('0');             Edit13.Text:=inttostr(trafbitin);           end;        Edit2tr.Text:= ('In: '+BytesToFriendlyString(trafbitin));        Edit3tr.Text:= ('Out: '+BytesToFriendlyString(trafbitout));        Edit13.Text:=inttostr(trafbitin);        end;    а сама прога на diman.ho.ua Всего записей: 6 | Зарегистр. 23-08-2010 | Отправлено: 00:34 07-01-2012

Страницы: 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 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (до версии 2009) - часть 6

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование