stepan96 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору SergeBS > А положить сервак напрочь на этом не боишься? А в чем проблема-то? Одна хранимая процедура, которая делает один большой SELECT, а потом делает UPDATE на получившийся набор данных и вот его отдает клиенту. С таким же успехом положить сервак может и само приложение. Всего записей: 155 | Зарегистр. 28-01-2003 | Отправлено: 10:37 16-01-2006

ShamaN Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Z MeZe, я нашел как можно решить эту проблему. Если интересно...   Главной форме делаю:   Код: ShowWindow(Application.Handle, sw_hide);     а второй форме: Код:   ... private     { Private declarations }     procedure CreateParams(var Params: TCreateParams); override; ....   procedure TForm2.CreateParams(var Params: TCreateParams); begin   inherited CreateParams(Params);   with params do     ExStyle := ExStyle or WS_EX_APPWINDOW; end;   Всего записей: 1297 | Зарегистр. 23-09-2004 | Отправлено: 11:04 16-01-2006

DenSer Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору господа, подскажите плиз как обработать нажатие клавиши "Win"? не могу найти инфы по этой теме Всего записей: 258 | Зарегистр. 06-03-2004 | Отправлено: 11:39 16-01-2006

SergeBS Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору stepan96 Цитата: а потом делает UPDATE на получившийся набор данных и вот его отдает клиенту Во-во, парсинг и UPDATE со вставкой туевой хучи форматирующих признаков, которые еще и просто так не сформируешь. Хотя попробовать конечно можно. Но я это все делал бы на клиенте: просто в Word впихнуть, конвертировать он сам умеет. Все заморочки пропадают. Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 12:30 16-01-2006

Farkhad BANNED Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору На форме 1 у меня установлено соединение с базой. На форме 2 меню, по нажатию на пункт меню, в форму 2 подгружается нужный фрейм:   Код:   if assigned(Frame) then FreeandNil(Frame);   Frame := TFrame5.Create(Self); Frame.Parent:=Form2;     У меня возникла проблема. Во фрейме 5, я хочу вывести через DBGrid и ADOTable список юзеров. Но приэтом я хочу юзать подключение к базе, которое уже установлено на форме 1, и еще я не знаю как передать нужные параметры DBGrid и ADOTable (н-р, DataSource, Connection) Всего записей: 731 | Зарегистр. 03-08-2001 | Отправлено: 16:47 16-01-2006

SergeBS Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Farkhad Берешь ADOconnection и через него связываешь с БД всех прочих Table, Query.... А вообще правилом хорошего тона считается выносить все эти компоненты в отдельный модуль и юзать сообща всеми формами, дабы не плодить 1001 ADOTable для работы с главной таблицей. Переделывай, пока не поздно. И опять же, использование ADOTable - моветон. Юзай связку ADOConnection-> N*(ADOcommand+DataSet)->DBGrid/DBEdit...на формах. Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 18:09 16-01-2006

Kosta_piter Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Писал кто-нить клиента ICQ с поддержкой последней версии протокола и возможностью установки фотографий в информацию об уине (как в ICQ5)? И с поддержкой регистрации нового пользователя? Я раньше сидел на TICQclient, но этот компонент устарел (протокол V7). Пробую TOOSCARclient (www.ithilien.tk) Он под AIM но с асей тоже вроде работает. Стучите в 1923071... Всего записей: 90 | Зарегистр. 16-06-2005 | Отправлено: 13:59 17-01-2006

nvlnik Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Уважаемые господа! Не разобрался с компонетом Win32Crt. Скачал с torry, но там нет файла .pas? а только .dcu. Как его уcтановить в Delphi 7? Всего записей: 26 | Зарегистр. 19-04-2005 | Отправлено: 15:54 18-01-2006 | Исправлено: nvlnik, 15:54 18-01-2006

Z MeZe Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору nvlnik Цитата: Уважаемые господа!   Не разобрался с компонетом Win32Crt. Скачал с torry, но там нет файла .pas? а только .dcu.   Как его уcтановить в Delphi 7? Либо подкладываешь в директорию проекта и прописываешь в uses, либо кидаешь туда, где все дельфийские dcu лежат, либо кладешь в свою директорию и прописываешь путь к этому файлу. Первый путь самый незамороченный. Если собираешься использовать для множества проектов, то лучше в общую папку кинуть (по умолчанию папка ...:\Program Files\Borland\Delphi...\lib) Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 17:21 18-01-2006

chaugi Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Программа при помощи Цитата: if FindFirst(PathEdit.Text+'\*.mp3', faAnyFile{faDirectory}, sr) = 0 then находит файли с такимто расширением и потом их переименовывает. Подскажите пожалуйста как заставить искать файлы с такимже расширением и во всех СУБ директория. В Helpe мне кажется что всё перерыл.   Огромное спасибо.   Добавлено: Программа при помощи Цитата: if FindFirst(PathEdit.Text '\*.mp3', faAnyFile{faDirectory}, sr) = 0 then находит файли с такимто расширением и потом их переименовывает. Подскажите пожалуйста как заставить искать файлы с такимже расширением и во всех СУБ директория. В Helpe мне кажется что всё перерыл.   Огромное спасибо. Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 21:18 18-01-2006

Sleepwalker Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору chaugi   примерно в таком концепте:     procedure findfiles(dir:string); var   fs:TSearchRec; begin   if findfirst(dir+'*.*',faDirectory,fs)=0 then   repeat     if (fs.Name='.') or (fs.Name='..') then continue;     findfiles(dir+fs.name+'\');   until findnext(fs)<>0;   if findfirst(dir+'*.mp3',faAnyFile,fs)=0 then   repeat     if fs.Attr and 16>0 then continue;    {тут творишь весь беспредел над найденным файлом}     until findnext(fs)<>0;   findclose(fs); end;   рекурсивный вызов и усе...   Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 21:48 18-01-2006 | Исправлено: Sleepwalker, 21:52 18-01-2006

chaugi Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sleepwalker Я не совсем знаю что такой рекурсивный вызов И т.к. у меня идёт обращение к элементам формы мне нужно сделать Цитата:   procedure findfiles(Sender: TObject; Path:string);   Но я не знаю, как нужно правильно вызвать процедуру. procedure TForm1.RenameButtonClick(Sender: TObject); Цитата: ..... if SubCheckBox.Checked then findfiles(?????????,Path); что вписать? ....   Спасибо.   Добавлено: А то, что эта процедура сама себя вызывает, это нормально?   Добавлено: Может есть есть какой-нибудь другой способ, просто функция например, которая из заданной директирии находит все поддиректории и заносит их какую нибудиь string переменную, а потом  просто запускаешь Цитата:   if FindFirst(PathEdit.Text+'\*.mp3', faAnyFile{faDirectory}, sr) = 0 then   с разными путями и всё....? Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 22:52 18-01-2006

Sleepwalker Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору chaugi   сделай мою процедуру как метод формы и обращайся к элементам формы сколько душе угодно   т.е.   procedure Tform1.findfiles(dir:string);   ... и далее по моему тексту   + не забудь добавить описание метода в описание класса в начале модуля т.е. у тебя есть   TForm1 = class (Tform)  procedure ....  procedure ....  procedure Tform1.findfiles(dir:string);    ...  private;  public;  end;     и потом в обработчике кнопки:    procedure TForm1.RenameButtonClick(Sender: TObject);   begin   ...   findfiles(dir);   ... end;   зы. если я правильно понял твой вопрос.. Всего записей: 1957 | Зарегистр. 19-10-2002 | Отправлено: 23:55 18-01-2006

chaugi Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Sleepwalker Да, правильно, только почемуто в глубь дирректорий не лезет.... А так работает в указанной...   Добавлено: gpi Спасибо за пояснение. Sleepwalker Переправерил, все переписал, как Вы и сказали   Добавлено: Нашёл ошибку, всё работает спасибо  огромное Sleepwalker! Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 00:25 19-01-2006

Konstantin555Xaker Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Для выделения текущей интернет-ссылки из IE я использую следующий код:   Код: function Get_URL(Servicio: string): String; var   Cliente_DDE: TDDEClientConv;   temp:PChar;      // begin    Result := '';    Cliente_DDE:= TDDEClientConv.Create( nil );     with Cliente_DDE do        begin           SetLink( Servicio,'WWW_GetWindowInfo');           temp := RequestData('0xFFFFFFFF');           Result := StrPas(temp);           StrDispose(temp);  //           CloseLink;        end;      Cliente_DDE.Free; end;   И эту функцию вставляю в событие Таймера, интервал=10 милисекунд (желательно вообще 1 милисекунда, но в таком случае процессор загружен будет на 50-60 процентов!). При интервале=10 мс проц загружен на 30 процентов.     Есть ли альтернативная функция, которая бы спокойно себе работала и не загружала, практически, процессор? Всего записей: 75 | Зарегистр. 04-01-2006 | Отправлено: 01:11 19-01-2006

Bonivur Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Может кто-то сталкивался...? Нужна подсветка гитарных аккордов в тексте (OnChange, реалтайм то бишь..) Для тех кто не знает - аккорды могут состоять из одной Заглавной английской буквы и буквенно-цифровых обозначений - например:   Cm, A, G#, F#m7-5, A7, Hm, Hsus4, H+5, D6/9 и.т.д.   Так вот сама задача - как сделать подсветку 1) быстро. по изменению текста (вставка, исправление, добавление и пр.) чтобы на глаз перерисовка была заметна по минимуму.   2) чтобы убирала подсветку если аккорда нет в массиве (например, было 'Hm', такой аккорд есть, потом пользователь приписал буковку 'a' -стало 'Hma' такого аккорда нет - подсветка снимается со всего этого слова. 3) Между аккордами есть пробелы, но аккорды могут стоять и в конце строки, то есть ими строка может заканчиваться.   Вот такая задача. Бьюсь, но пока ничего не смог сделать. Пробовал TRichEdit, TRichView, SynEdit - не то. ---------- Что будет стоить тысяча слов когда важна будет крепость руки? (В.Цой) Всего записей: 655 | Зарегистр. 22-06-2003 | Отправлено: 08:14 19-01-2006

PowerChute Full Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Bonivur Возми компоненту TfsSyntaxMemo из библиотеки FastScript, исправь ключевые слова на аккорды и будет тебе счастье. Всего записей: 520 | Зарегистр. 13-10-2004 | Отправлено: 10:50 19-01-2006

Страницы: 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

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

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1

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