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

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


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


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

Выпуск № 145
от 19.03.2003, 17:50

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


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

BuTEK
Статус: Доверительный
Общий рейтинг: 149.12
[Подробней >>]
Elshad Azizov
Статус: Начальный
Общий рейтинг: 101.35
[Подробней >>]
baldr
Статус: Профессиональный
Общий рейтинг: 113.56
URL: Сайт об ОС DOS. Всем, кто любит эту ОС!
[Подробней >>]
 
Дима Мусиенко
Статус: Начальный
Общий рейтинг: 122
[Подробней >>]


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

Вопрос № 495. Уважаемые эксперты, Delphi занимаюсь всего год. Сейчас пробую работать с базами данных. Работаю с... (ответов: 1)
Вопрос № 496. Помогите пожалуйста как-нибудь определить сигнал "занято" модемом. Хотелось написать пр... (ответов: 1)
Вопрос № 497. Здравствуйте эксперты! Скажите пожалуйста как упростить код следующего типа? edit1.readonly:= true... (ответов: 3)
Вопрос № 498. Здравствуйте! Как правильно объявить следующее. У меня почему то возникает ошибка: TYPE NX = ... (ответов: 3)
Вопрос № 499. У меня исчез значок CD-ROM'a из "Моего компьютера" мне посоветовали купить шлейф (второй) ... (ответов: 3)
Вопрос № 500. КАК ЮЗАТЬ INTERNETCONNECT ? ! ! напишите пример (если знаете)... (ответов: 1)

Вопросов: 6, ответов: 12


 Вопрос № 495

Уважаемые эксперты, Delphi занимаюсь всего год. Сейчас пробую работать
с базами данных. Работаю с набором данных Table и появились вопросы:
1. Как добавить программно физическое поле, если это вообще возможно.
В общем имеется некоторая база данных и требуется добавить еще одно поле,
чтобы оно реально существовало и можно было хранить в нем информацию.
2. Как можно осуществить контроль ввода уникальных значений в некоторое поле
(или в несколько полей), то есть речь идет об ограничении избыточности данных.
Заранее благодарен !!!



Вопрос отправлен: 15.03.2003, 12:50
Отправитель: SATAN aka NAPALM

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

Отвечает BuTEK

пџяЂпёпІпµя‚яЃя‚пІяѓяЋ п’п°яЃ, SATAN aka NAPALM!
п’пѕпїяЂпѕяЃ пЅпѕпјпµяЂ пѕпґпёпЅ яЂпµя€п°пµя‚яЃяЏ я‡пµяЂпµп· пёяЃпїпѕп»яЊп·пѕпІп°пЅпёпµ SQL
пђ пїпѕ пІя‚пѕяЂпѕпјяѓ - я‚пѕ пїяЂп°пІпёп»яЊпЅпѕ пїяЂпѕпµпєя‚пёяЂяѓп№ п±п°п·яѓ пё пІяЃпµ п±яѓпґпµя‚ пІпїпѕяЂяЏпґпєпµ. п∙яЃя‚яЊ я‚п°пєпѕпµ пїпѕпЅяЏя‚пёпµ пєп°пє пЅпѕяЂпјп°п»яЊпЅп°яЏ я„пѕяЂпјп°. п’пѕя‚ пѕя‚ яЌя‚пѕпЁпѕ пё пѕя‚я‚п°п»пєпёпІп°п№яЃяЏ.
п’пёя‚пµпє.
Butek@bratva.ru


Ответ отправлен: 15.03.2003, 22:20
Отправитель: BuTEK


 Вопрос № 496

Помогите пожалуйста как-нибудь определить сигнал "занято" модемом. Хотелось написать программу дозвона, все существующие у меня не пашут(короткие гудки из модема разносятся, а программа этого не понимает).
Ни Etype Dialer, ни чего подобного мне не помогло...
Зато VentaFax определяет "занято" только так...
Наверное нужно как-то работать с регистрами модема,
но я не знаю, как ,послав команду модему, получить на неё ответ.
Другой выход - анализировать сигналы с телефонной линии,
но это для меня уже слишком(сам точно не дойду)...
Помогите, please !!!


Приложение:


Вопрос отправлен: 15.03.2003, 22:07
Отправитель: =FeanaR=

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

Отвечает BuTEK

п—пґяЂп°пІяЃя‚пІяѓп№я‚пµ, =FeanaR=!
пџпѕпїяЂпѕп±яѓп№ яЌя‚пѕ:
http://igoryksoft.narod.ru/docs/asm/modems.rar
п’пёя‚пµпє.
butek@bratva.ru


Ответ отправлен: 15.03.2003, 22:39
Отправитель: BuTEK


 Вопрос № 497

Здравствуйте эксперты!
Скажите пожалуйста как упростить код следующего типа?
edit1.readonly:= true;
edit2.readonly:= true;
...
...
...
edit15.readonly:=true;
Спасибо Вам!!



Вопрос отправлен: 15.03.2003, 23:22
Отправитель: dude (squeeze_ms@mail.ru)

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

Отвечает Elshad Azizov

Здравствуйте, dude!
(Sender as TEdit).Readonly:=true;
Edi

Ответ отправлен: 17.03.2003, 08:52
Отправитель: Elshad Azizov


Отвечает baldr

Здравствуйте, dude!
Ну, видимо, надо завести массив и туда все эти контролы запихать...
Если у тебя уже все эти editЫ на форме лежат, то сделай так:
var
massiv:array[1..15] of TEdit;
...
massiv[1]:=edit1;
..
massiv[15]:=edit15;

А зато потом ты сможешь менять для всех свойства просто циклом. обрабатывая массив!
Можно и по-другому...


Ответ отправлен: 16.03.2003, 23:38
Отправитель: baldr


Отвечает BuTEK

п”пѕп±яЂпѕпµ пІяЂпµпјяЏ яЃяѓя‚пѕпє, dude!
п”пµяЂп¶пё пѕя‚пІпµя‚ ;) :
var
i:byte;
begin
for i:=1 to 15 do
with TEdit(FindComponent('Edit'+IntToStr(i))) do
readonly:=true;
end;
пІпѕя‚ яЃпѕп±яЃя‚пІпµпЅпЅпѕ пё пІяЃпµ.
п’пёя‚пµпє.
butek@bratva.ru

Ответ отправлен: 15.03.2003, 23:44
Отправитель: BuTEK


 Вопрос № 498

Здравствуйте!
Как правильно объявить следующее.
У меня почему то возникает ошибка:
TYPE
NX = ('Зарубежный','Отечественный');
Ошибка: Identifier expected but string constant found.
Спасибо !



Вопрос отправлен: 16.03.2003, 10:41
Отправитель: dude (squeeze_ms@mail.ru)

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

Отвечает Elshad Azizov

Доброе время суток, dude!
Type
NX=Record
str:('Зарубежный','Отечественный');


Ответ отправлен: 17.03.2003, 08:54
Отправитель: Elshad Azizov


Отвечает baldr

Доброе время суток, dude!
Правильно, ибо надо не константу писать сюда, а идентификатор! Если делать как ты,
со строками, то либо массив (Array), либо множество (Set of)...


Ответ отправлен: 16.03.2003, 23:38
Отправитель: baldr


Отвечает BuTEK

п—пґяЂп°пІяЃя‚пІяѓп№я‚пµ, dude!
пўпѕпЁпґп° я‚яѓя‚ пЅяѓп¶пµпЅ яЃп»пµпґяѓяЋя‰пёп№ пїпѕпґя…пѕпґ:
type
TMyType = array [0..1] of string;
const
NX : TMyType = ('п—п°яЂяѓп±пµп¶пЅя‹п№','пћя‚пµя‡пµяЃя‚пІпµпЅпЅя‹п№');
п’пёя‚пµпє.
Butek@bratva.ru

Ответ отправлен: 16.03.2003, 13:20
Отправитель: BuTEK


 Вопрос № 499

У меня исчез значок CD-ROM'a из "Моего компьютера" мне посоветовали купить шлейф (второй) я так и сделал и у меня все заработало. В чём дело?



Вопрос отправлен: 16.03.2003, 10:45
Отправитель: Serg

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

Отвечает BuTEK

пџяЂпёпІпµя‚яЃя‚пІяѓяЋ п’п°яЃ, Serg!
пџпѕя‚пѕпјяѓ я‡я‚пѕ пѕпєпЅп° пЅп°я€п»пё пЅпѕпІпѕпµ яѓяЃя‚яЂпѕп№яЃя‚пІпѕ ;)
п’пёя‚пµпє.
butek@bratva.ru

Ответ отправлен: 16.03.2003, 12:27
Отправитель: BuTEK


Отвечает baldr

Приветствую Вас, Serg!
А ты шлейф просто поднес к компу и все заработало? :)))
Ты его хоть вставил? :))


Ответ отправлен: 16.03.2003, 23:39
Отправитель: baldr


Отвечает Дима Мусиенко

п—пґяЂп°пІяЃя‚пІяѓп№я‚пµ, Serg!
пё пјпµпЅяЏ я‚п°пєпѕпµ пґп°пІпЅпѕ п±я‹п»пѕ яЃ 98-пѕп№ пІпёпЅпґпѕп№.
пњпѕп¶пµя‚ п±я‹я‚яЊ я€п»пµп№я„ п±я‹п» пїп»пѕя…пѕп№.
пњпѕп¶пµя‚ пЅп° пѕпґпЅпѕпј я€п»пµп№я„пµ пёпј п±я‹п»пѕ я‚пµяЃпЅпѕ "п¶пёя‚яЊ". пђ пјпѕп¶пµя‚ пё пІпёпЅпґп° я‡я‘-я‚пѕ пјяѓпґяЂпёя‚.


Ответ отправлен: 17.03.2003, 16:07
Отправитель: Дима Мусиенко


 Вопрос № 500

КАК ЮЗАТЬ INTERNETCONNECT ? ! !
напишите пример (если знаете)



Вопрос отправлен: 16.03.2003, 11:19
Отправитель: komrad

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

Отвечает BuTEK

п”пѕп±яЂя‹п№ пґпµпЅяЊ, komrad!
п”п°яЋ пїяЂпёпјпµяЂ я„яѓпЅпєя†пёпё, пєпѕя‚пѕяЂп°яЏ яЃпєп°я‡пёпІп°пµя‚ я„п°п№п» пёп· пёпЅпµя‚п°:
function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
procedure TForm1.Button1Click(Sender: TObject);
var
FileOnNet, LocalFileName: string;
begin
FileOnNet:='http://src.fitkursk.ru/articles/mp3player.zip';
LocalFileName:='MyFile.zip';
if GetInetFile(FileOnNet,LocalFileName)=True then
ShowMessage('Download successful')
else
ShowMessage('Error in file download')
end;
п’пёя‚пµпє.
butek@bratva.ru

Ответ отправлен: 16.03.2003, 13:31
Отправитель: BuTEK



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

Внимание!
Форма может работать некорректно в почтовых программах "Microsoft Outlook" и "Microsoft Outlook Express". В программе The Bat! подобные формы не работают вообще!
После нажатия на кнопку "Отправить", будет открыто второе окно. Заметьте, что в некоторых браузерах могут стоять запреты на открытие других окон, а также "чрезмерное" кэширование данных, при этом факт отправки Вашего вопроса стоит под сомнением.
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

© 2002 Команда RusFAQ.ru.

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

Ваше имя:

Ваш e-mail:

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


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

Ваш вопрос:


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


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


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

Программисту
Assembler (35)
C / C++ (30)
Perl (6)
Delphi (16)
Pascal (19)
Basic / VBA (11)
Java / JavaScript (10)
PHP (7)
MySQL / MSSQL (6)
Пользователю
Windows 95/98/Me (32)
Windows NT/2000/XP (25)
"Железо" (29)
Поиск информации (14)
Администратору
Windows NT/2000/XP (12)
Linux / Unix (13)
Юристу
Гражданское право (7)
Семейное право (3)
Трудовое право (4)
КоАП (4)

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




Яндекс цитирования

© 2002 Россия, Москва. Авторское право: RusFAQ.ru

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное