Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Delphi


Информационный Канал Subscribe.Ru

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 414
от 19.11.2004, 14:40

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 1946
Отправлено ответов: 4368
Активность: 224.4 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Boriss
Статус: Профессиональный
Общий рейтинг: 155.79
URL: Программирование на Паскале
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 163.81
[Подробней >>]
Vet
Статус: Доверительный
Общий рейтинг: 123.18
[Подробней >>]
 
CJ
Статус: Профессиональный
Общий рейтинг: 117.75
URL: Персональный сайт Каратецкого Кирилла.
Телефон: +375297353706
[Подробней >>]
Blackhowk
Статус: Начальный
Общий рейтинг: 106.66
[Подробней >>]
vitaly
Статус: Начальный
Общий рейтинг: 126.92
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 1927. Как получить список компов, находящихся в сети?... (ответов: 3)
Вопрос № 1928. Добрый день. Скачал триальную библиотеку ODAC 4.10 trial for Delphi 7. Скачал крак. А она сволочь работает только из под Делфи. ПОМОГИТЕ. Горю.... (ответов: 2)
Вопрос № 1929. Доброе время суток, многоуважаемые! Помогите, плз, с решением такой проблемы: требуется написать программу, работающей с базами данных. Все данные хранятся в двух файлах в таблицах; в первой таблице - некие данные о работниках(в Очень общих чертах), ... (ответов: 1)
Вопрос № 1930. нужно обработать таблицу, выбрать какие-то там данные и просуммировать их. В принципе все хорошо получалось(Table.First while Table.Eof do begin обработка условий, суммирование Table.Next end) Но захотелось мне всунуть это дело в поток :)), ... (ответов: 2)
Вопрос № 1931. Как выводить смайлики в тексте? Как в ICQ? Пробовал TMemo и TRichEDit на графику раскочегарить, но ничего путного не вышло. Что только за компонент эти Аськописцы юзали...... (ответов: 3)
Вопрос № 1932. Здравствуйте, мастера! Как программно при клике на RxDBLookupCombo(DBLookupCombo) установиться на строку в списке, т.е. сэмулировать ввод с клавиатуры на этот сфокусированный объект? Я делаю так, но увы ... procedure TFPrihAvt.RxDBLookupCombo1Enter(S... (ответов: 1)
Вопрос № 1933. Комментарии к вопросу 1928. Библиотека ODAC работает только из среды Delphi. А если Delphi закрыть и запуститить прогу то выдается сообшение о триальности версии. Плиз помогите либо сломать либо взять не триальную версию.... (ответов: 1)

Вопросов: 7, ответов: 13


 Вопрос № 1927

Как получить список компов, находящихся в сети?



Вопрос отправлен: 15.11.2004, 11:15
Отправитель: Matrix

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Доброе время суток, 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.
Скачал крак. А она сволочь работает только из под Делфи.
ПОМОГИТЕ. Горю.



Вопрос отправлен: 15.11.2004, 13:01
Отправитель: Topa

[Следующий вопрос >>] [Список вопросов]

Отвечает CJ

Добрый день, Topa!
Ну так ты же сам написал: fof Delphi, значит для делфи!

Ответ отправлен: 15.11.2004, 15:31
Отправитель: CJ


Отвечает Boriss

Доброе время суток, Topa!
А нужно под чем? И откуда скачали?

Ответ отправлен: 16.11.2004, 09:55
Отправитель: Boriss


 Вопрос № 1929

Доброе время суток, многоуважаемые!
Помогите, плз, с решением такой проблемы:
требуется написать программу, работающей с базами данных.
Все данные хранятся в двух файлах в таблицах; в первой таблице - некие данные о работниках(в Очень общих чертах), вторая таблица - справочник(более подробно). Должны поддерживаться добавление, удаление и изменение записей.
Буду благодарен, если кто-нибудь подскажет, в какую сторону копать. Подходящие исходники приветствуются.
Заранее спасибо



Вопрос отправлен: 15.11.2004, 17:52
Отправитель: X'LAM

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Приветствую Вас, 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;
Заранее благодарен за помощь. :))



Вопрос отправлен: 15.11.2004, 18:20
Отправитель: Алексей

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Доброе время суток, Алексей !
А сообщение об ошибке то кто будет писать?
И не видно Ваших мыслей по работе с 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 на графику раскочегарить, но ничего путного не вышло. Что только за компонент эти Аськописцы юзали...



Вопрос отправлен: 15.11.2004, 19:15
Отправитель: SH (gsimon@mail.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Приветствую Вас, 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;



Вопрос отправлен: 16.11.2004, 09:22
Отправитель: kraw (kraw2@rambler.ru)

[Следующий вопрос >>] [Список вопросов]

Отвечает vitaly

Приветствую Вас, kraw!
В данном случае удобнее воспользоваться самим датасетом
см Приложение


Приложение:

Ответ отправлен: 16.11.2004, 11:13
Отправитель: vitaly


 Вопрос № 1933

Комментарии к вопросу 1928.
Библиотека ODAC работает только из среды Delphi. А если Delphi закрыть и запуститить прогу то выдается сообшение о триальности версии. Плиз помогите либо сломать либо взять не триальную версию.



Вопрос отправлен: 16.11.2004, 11:23
Отправитель: Anton

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Приветствую Вас, Anton!
Ломами не занимаемся, ибо это подсудно. А где Вы взяли? Почему не написали?

Ответ отправлен: 16.11.2004, 12:12
Отправитель: Boriss



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (22)
C / C++ (18)
Perl (5)
Builder / Delphi (16)
Pascal (19)
Basic / VBA (9)
Java / JavaScript (7)
PHP (17)
Криптография (7)
WinAPI (18)
Радиоэлектроника (12)
Пользователю
Windows 95/98/Me (37)
Windows NT/2000/XP (58)
"Железо" (38)
Поиск информации (21)
Администратору
Windows NT/2000/XP (35)
Linux / Unix (19)
Юристу
Гражданское право (10)
Семейное право (5)
Трудовое право (8)
КоАП (5)

Отправить вопрос всем экспертам выбранной рассылки.





http://subscribe.ru/
http://subscribe.ru/feedback/
Подписан адрес:
Код этой рассылки: comp.soft.prog.delphiplus
Отписаться

В избранное