| Понятие программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
База данных, Не пойму статьи Вращение картинки в C++Builder, На Delphi тоже пойму :) Помогите студенту с файлами, Проблемы с обработкой файлов в делфи word doc -- pdf FieldCount в TIbSql, IBX Socket и DialUp, Connect ProgressBar при загрузке TTable БД без BDE, (Interbase) Как получить Хандл иконки от чужого окна?, собственно.... Listbox Delphi+Excel Удаление файлов в Делфи А как сделать MDI форму из чужого окна?, допустим .... инспектор свойств Отображение в TOleContainer документа Word, Как сделать скроллинг? DBExpress, +paradox ??? Как Вы относитесь к курящим девушкам? DirectSound, примеры Winapi курсовик по паскалю, помогите решить задачу ICQ, ICQ сообщение из консольной программы "Insufficient memory for this operation."... Outlook Express, Прочитать входячие письма.. Работа с файлами в Delphi IsBadReadPtr и IsBadWritePtr, Как работают? Как редактировать таблицы в RichEdit?, Как редактировать таблицы в RichEdit Определение виртуального CD-ROM/DVD-ROM Решето Эратосфена Программа для начинающего!, заходим, голосуем, отвечаем и т.д. Центрирование в StringGrid, нужна помощь Как изменить громкость MediaPlayer? Баг, borland pascal 7.0 Открыт ли файл?, ... Как узнать? использование XML в Builder' e Надо выполнить процедуру для нескольких, клиентов... ClientDataSet, ClientDataSet не обновляет TAdoQuery Как скопировать row из StrinGridи вставить в др.SG, stringrid1 row copy to stringrid2 Minimaze Проблема в DataModule, Проблема в DataModule События, Обработка событий в Delphi Hint, ал-ля ХР Модуль для упрощенного вызова сообщений Массив по спирали, Двойная матрица по спирали Динамический массив, Пример на pascal Рисование и маштабирование Рисование линий по кривой Безье, Как вдоль кривой нарисовать линию??? QGraphics and Graphics А ты знаешь Delphi?, Вопрос на знание особенностей Delphi StayOnTop, не работает :( Функции для записи и чтение своих данных в, ЕХЕ- файле что это за опреатор?, Перевести оператор СИ++ offsetof на Delp Model Maker Проверьте задачку..., либо у меня крыша поехала, либо... Библиотека UnRAR.dll, как прикрутить... Объединение таблиц, InterBase Работа с ЛПТ портом!, Собственно сабж! Где взять инфу о внедрении Dll TCustomImageList загрузка файла КАК? Помогите с треем, Пример сонга не пашет... 80 - filter Хост по IP адресу Как Вы относитесь к курящим девушкам? Создать несколько екземпляров компонента, ---------------------------------------- вопрос модераторам, извините за offtop Как создать модальное окно для текущего Открытие и закрытие документа Word TListView Проблема с окнами Помогите, Внедрением Dll и перехват Api функций Проблема при отображении текста в StringGrid, Проблемы при выводе вертикального текста |
Платные хостинги Раскрутка сайта Книги по программированию Создать несколько екземпляров компонента, ----------------------------------------
- Привет всем.Сервер. Ждёт конекта клиента. Клиент посылает команду. Сервер работает с базой даных Интербейс. Когда один клиент то нормально обрабатывается, а когда много ничего неработает. Я решил реализовать ето дело в потоках (TThread). Но незнаю как. (никогда с етим неработал) хочу научится. Можете мне подсказать?. Дома куча книг по Дельфи и ни в одной нет инфы о Потоках. Когда клиенты конектятся то для них создается отдельный поток (нашел пример). А вот как мне реализовать работу с базой в отдельных потоках?делал так: (работает для одного клиента)Код Var zname:string; ZalQuery1:TIBQuery; ZalDatabase1: TIBDatabase; ZalTransaction1: TIBTransaction;begin try try ZalQuery1:=TIBQuery.Create(aowner); ZalDatabase1:=TIBDatabase.Create(aowner); ZalTransaction1:=TIBTransaction.Create(aowner); ZalDataBase1.DatabaseName:=dm2.DataBase1.DatabaseName; ZalDataBase1.Params.Text:=dm2.Database1.Params.Text; ZalDataBase1.LoginPrompt:=false; ZalDataBase1.DefaultTransaction:=ZalTransaction1; ZalQuery1.Database:=ZalDataBase1; ZalQuery1.Transaction:=ZalTransaction1; ZalDataBase1.Connected:=true; ZalQuery1.Active:=false; ZalQuery1.SQL.Clear; ZalQuery1.SQL.Add('select * from ZALFORZAMOVLENYA('+id+')'); ZalQuery1.Active:=true; ZalQuery1.FetchAll;.... except on e:exception do begin result:=false; dm.Display('..Ошибка..... '+e.message,MYSERVER,I_ERRORMSG); exit; end; end; finally ZalQuery1.Free; ZalDatabase1.Free; ZalTransaction1.Free; result:=true; end;end;highlightSyntax('delphiVhM2Nm','delphi');как мне реализовать ето дело, что-бы работало с несколькими клиентами?Если можна кусочек кода... (Есть много магазинов - пишу програму для синхронизации остатков товара на складах. Сервер и клиент реализованы на Socket)Зарание благодарен. Это сообщение отредактировал X-Vlad - 19.4.2004, 15:46 - Посмотри о потоках в 1) "Программирование в Delphi7" Дарахвелидзе,Марков BHV - мне понравилоськак здесь написано2) "Программирование в Delphi7" Архангельский - Может кто-то пример может кинуть? - Как и все честные люди, начнем с нуля.У меня дома документация больше, это то что нашел сразу вроде бы все нормально написаноhttp://uchenik.vofka.ru/my_files/Thread.ZIP - а в FAQ не лазил? - Как мне подождать пока выполнится поток?Например вот такой код:Код procedure TMyThread.execute;Var i:integer;begin i:=0; repeat i:=i+1; sleep(100); until i>10000;end;procedure start;begin mythread:=MyThreadClass.Create(true); mythread.FreeOnTerminate:=true; mythread.suspended:=false;end;procedure click;begin start; showmessage('end'); end;highlightSyntax('delphiYzIxMT','delphi');что надо зделать что-бы сообщение показывалось после завершения работы потока?Зарание благодарен.  |