Доброе время суток, Matrix! Посмотри http://www.delphiworld.narod.ru/_internet_.html Там много чего по сетям есть Ответ отправлен: 15.11.2004, 13:14 Отправитель: Boriss Отвечает sir henry
Здравствуйте, Matrix! Можно посмотреть как это делается в этом компоненте: http://www.torry.net/vcl/lan/networks/sglanview.zip Ответ отправлен: 15.11.2004, 14:17 Отправитель: sir henry Отвечает Vet
Доброе время суток, Matrix! В свое время тоже искал ответ на этот вопрос в Инете. Нашел несколько примеров, использующих API-функции: WNetOpenEnum, WNetEnumResource, .. Но, к сожалению, нерабочих. Плюнув на это дело, сделал проще: ... uses ... ShellApi; ... function GetCompNames; var f: TextFile; begin AssignFile(f,'users.bat'); Rewrite(f); Writeln(f,'net view>users.txt'); Writeln(f,'del users.bat'); CloseFile(f); ShellExecute(Handle,'Open',PChar('users.bat'), nil,nil,SW_HIDE); end; // получили текстовый файл с именами компов сети Ответ отправлен: 16.11.2004, 23:22 Отправитель: Vet
Вопрос № 1928
Добрый день. Скачал триальную библиотеку ODAC 4.10 trial for Delphi 7. Скачал крак. А она сволочь работает только из под Делфи. ПОМОГИТЕ. Горю.
Добрый день, Topa! Ну так ты же сам написал: fof Delphi, значит для делфи! Ответ отправлен: 15.11.2004, 15:31 Отправитель: CJ Отвечает Boriss
Доброе время суток, Topa! А нужно под чем? И откуда скачали? Ответ отправлен: 16.11.2004, 09:55 Отправитель: Boriss
Вопрос № 1929
Доброе время суток, многоуважаемые! Помогите, плз, с решением такой проблемы: требуется написать программу, работающей с базами данных. Все данные хранятся в двух файлах в таблицах; в первой таблице - некие данные о работниках(в Очень общих чертах), вторая таблица - справочник(более подробно). Должны поддерживаться добавление, удаление и изменение записей. Буду благодарен, если кто-нибудь подскажет, в какую сторону копать. Подходящие исходники приветствуются. Заранее спасибо
Приветствую Вас, X'LAM! Т.е. Вас интересуте как в принципе работать с базами данных? Тогда, на начальном этапе, исходники Вам мало помогут. Лучше купите книжку, например Фаронова. Там коротко и вполне понятно. Расписано как создавать БД, как их открывать-закрывать, заносить удалять данные, отображать, связывать таблицы, короче, все что нужно. Ответ отправлен: 16.11.2004, 05:54 Отправитель: sir henry
Вопрос № 1930
нужно обработать таблицу, выбрать какие-то там данные и просуммировать их. В принципе все хорошо получалось(Table.First while Table.Eof do begin обработка условий, суммирование Table.Next end) Но захотелось мне всунуть это дело в поток :)), чтобы можно было работать с формой. Тоже получилось. :)))) А дальше я захотел прицепить к этому всему еще и прогрессбар Тут и получился облом. при вызове свойств прогрессбара дельфа говорит о невозможности компилирования. текст процедуры и функции прилагаются procedure TMainForm.DelCiklClick(Sender: TObject); var hThread: THandle; ThreadID: DWord; begin hthread := CreateThread(nil, 0, @ThreadFunc, nil, 0, ThreadID); if
hthread = 0 then MessageBox(Handle, 'Нет потока ',nil, MB_OK); end; func
tion ThreadFunc(P: Pointer): LongInt; stdcall; var Max,Kol, StartKol: integer; Skol: string; begin ISklad.MainTable.Last; Max:= ISklad.MainTable.RecNo; // сюда я хочу вставить прогрессбар и обламываюсь ISklad.MainTable.First; StartKol:= 0; //DBGrid1.Visible:= False; while not ISklad.MainTable.Eof do begin if ISklad.DetalTable.Locate('TNum', ISklad.MainTableTNUM.Value,[]) then begin Kol:= StartKol + 1; StartKol:= Kol; ISklad.MainTable.Edit; ISklad.MainTable.Delete; end; ISklad.MainTable.Next; end; SKol:= IntToStr(StartKol); MessageDlg(SKol+' деталей удалено', mtInformation, [mbOk],0); //DBGrid1.Visible:= True; end; Заранее благодарен за помощь. :))
Доброе время суток, Алексей ! А сообщение об ошибке то кто будет писать? И не видно Ваших мыслей по работе с ProgressBar. :) С ним самим все довольно просто. Вам нужно знать максимальное количество записей, которые Вы будете обрабатывать: ProgressBar.Max:=CountRecords; Исходя из этого количества нужно рассчитать шаг ходьбы ProgressBar'a: ProgressBar.Step:=CountRecords div 100;{Например} Далее после каждой обработаной записи пишите следующее: ProgressBar.StepIt; Ответ отправлен: 16.11.2004, 06:06 Отправитель: sir henry Отвечает Boriss
Добрый день, Алексей ! И еще: 1) длинный код помещайте в приложение; 2) действительно, как отметил Sir Henry, ProgressBar'ом и не пахнет :)) 3) Поэтому недостаточно сказать, что "облом", покажите - как вставляете? 4) Помните, что при вызове VCL-функций из потока нужно обращение синхронизовать (synchronize(...))? Ответ отправлен: 16.11.2004, 10:12 Отправитель: Boriss
Вопрос № 1931
Как выводить смайлики в тексте? Как в ICQ? Пробовал TMemo и TRichEDit на графику раскочегарить, но ничего путного не вышло. Что только за компонент эти Аськописцы юзали...
Приветствую Вас, SH! Не знаю, что там юзали аськописцы, но ни TMemo, ни стандартный TRichEdit для графики не подходят. RichEdit лучше взять, например, из библиотеки компонентов RxLib. Туда можно графику засунуть. Ответ отправлен: 16.11.2004, 06:09 Отправитель: sir henry Отвечает CJ
Приветствую Вас, SH! Может и рич и спользовали а может и мемо. Ну это тебе необходиом написать код заменяющий соответствующие символы на картинку... Ответ отправлен: 15.11.2004, 21:56 Отправитель: CJ Отвечает Blackhowk
Приветствую Вас, SH! Попробуй скачать и поработать с компонентами RichViewActions - бесплатное дополнение для пакета TRICHVIEW. Выполняемые действия: операции с файлами, печать, редактирование (буфер обмена, поиск, замена и т.д.), форматирование текста (шрифт и атрибуты параграфа), вставка файлов, символов, изображений, маркеры и нумерация, таблицы, гиперсвязи. С исходными текстами. скачать можно здесь:http://www.torry.net/vcl/edits/packs/richviewactions.zip Ответ отправлен: 16.11.2004, 10:15 Отправитель: Blackhowk
Вопрос № 1932
Здравствуйте, мастера! Как программно при клике на RxDBLookupCombo(DBLookupCombo) установиться на строку в списке, т.е. сэмулировать ввод с клавиатуры на этот сфокусированный объект? Я делаю так, но увы ... procedure TFPrihAvt.RxDBLookupCombo1Enter(Sender: TObject); var s: string; k: short; Key: Char; begin s:=строка; .......... //I-Вариант for k:=1 to Length(s) do begin Key:=s[k]; RxDBLookupCombo1.OnKeyPress((RxDBLookupCombo1 as TRxDBLookupCombo),Key); end; //II-Вариант // RxDBLookupCombo1.SetTextBuf(PChar(AnsiUpperCase(s))); end;
Приветствую Вас, kraw! В данном случае удобнее воспользоваться самим датасетом см Приложение
Приложение: Ответ отправлен: 16.11.2004, 11:13 Отправитель: vitaly
Вопрос № 1933
Комментарии к вопросу 1928. Библиотека ODAC работает только из среды Delphi. А если Delphi закрыть и запуститить прогу то выдается сообшение о триальности версии. Плиз помогите либо сломать либо взять не триальную версию.
Приветствую Вас, Anton! Ломами не занимаемся, ибо это подсудно. А где Вы взяли? Почему не написали? Ответ отправлен: 16.11.2004, 12:12 Отправитель: Boriss
Форма отправки вопроса
Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+
или отправлять вопросы с сайта по адресу:
http://rusfaq.ru/cgi-bin/Message.cgi.