Вопросы по Delphi 2 - [76] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

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

Модерирует : ShIvADeSt
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142	Версия для печати • Подписаться • Добавить в закладки
Страницы: 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

ShIvADeSt

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Продолжение темы http://forum.ru-board.com/topic.cgi?forum=33&topic=3647&start=2020#lt
Внимание, все большие куски кода (более 5 строк) оформляем в тег [more] дабы уменьшить размер поста.

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:52 20-04-2006 | Исправлено: ShIvADeSt, 02:02 30-06-2006

greenpc

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Jokerjar
var PIInfo : PInternetProxyInfo;
...
New (PIInfo) ;
PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; // Изменение настроек ПРОКСИ
PIInfo^.lpszProxy := PChar('some.proxy:someport'); // указать прокси напр.
195.43.67.33:8080
PIInfo^.lpszProxyBypass := PChar(''); // Список адресов, доступ к которым возможен минуя Proxy сервер
UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0);
....
Dispose (PIInfo) ;

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 07:56 20-11-2006

Jokerjar BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору greenpc, я это пробовал. Но что-то не меняет он айпишник...
	Всего записей: 591 \| Зарегистр. 22-03-2006 \| Отправлено: 10:41 20-11-2006

greenpc

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Jokerjar
комент. "Код срабатывает только при первой загрузке, далее менять не хочет...
Делается дополнительное окно, куда и вставляется браузер. При необходимости использовать новую проксю делается на новое окно:=TForm2.create(self).
Вот, пожалуй и всё...
"

Всего записей: 401 | Зарегистр. 18-04-2003 | Отправлено: 11:15 20-11-2006

dvg06

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Всего записей: 5 | Зарегистр. 19-11-2006 | Отправлено: 16:42 20-11-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dvg06 ты сам понял че написал ? )).
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 16:56 20-11-2006

Vitus_Bering Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Как отформатировать текст типа 3,6 в 3,60р., короче текст с цифрами в денежный формат.
	Всего записей: 936 \| Зарегистр. 30-09-2005 \| Отправлено: 19:22 20-11-2006

OdesitVadim

Advanced Member

Vitus_Bering
наиболее просто - функция format

Код:

format('%6.2f р.',[d]);

d - переменная
Для денег там кажеться есть специальные команды форматирования

----------
Press any key to continue or any other key to exit
Пишите так, чтобы не было стыдно за нобелевскую премию.

Всего записей: 1568 | Зарегистр. 19-09-2003 | Отправлено: 19:34 20-11-2006 | Исправлено: OdesitVadim, 19:35 20-11-2006

Vitus_Bering Advanced Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору OdesitVadim Спасибо.
	Всего записей: 936 \| Зарегистр. 30-09-2005 \| Отправлено: 20:52 20-11-2006 \| Исправлено: Vitus_Bering, 21:54 20-11-2006

ХУдератор

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите плиз где почитать:
Нужно в определенные моменты приложения запускать поток который будет тусовать данные
Хочется, чтобы поток показывал формочку поверхвсех окон в уголке экрана и на нем статус своего выполнения, потом всё чистил из памяти

Собственно вопрос в работе формочки в параллельном потоке - как это всё грамотно организовать, красиво и не так чтоб пушкой по воробьям :-?

вот про это еслди кто знает - подскажите плиз где почитать

----------
Счастливые мысли приводят к счастливой клеточной биохимии

Всего записей: 10530 | Зарегистр. 28-05-2003 | Отправлено: 22:49 20-11-2006

RomanTim

Member

xy
Где почитать не скажу - не помню, чтобы где-нибудь видел, но наверняка могу сказать, что если ты сделаешь поток и в нем TForm.Create, то работать не будет - VCL так не умеет.

Когда у меня появилась необходимость в чем-то подобном, сделал так:
1. создал библиотеку, из которой экспортируются функции: ShowWindow и HideWindow (у тебя будет еще что-то типа SetStatus), в первой создавал окно, во втрой делал ему Free
2. В приложении создал поток, в котором делал так
Чтобы завершить поток надо ему послать WM_QUIT через PostThreadMessage

Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 23:10 20-11-2006 | Исправлено: RomanTim, 23:10 20-11-2006

EZH

Advanced Member

xy
GUI-поток у тебя должен быть один, твоего основного приложения. Он и должен отображать то окошко. А делать он должен это по синхронизированному вызову метода(ов) этого GUI-потока от создаваемого фонового потока, тусующего данные.

Вобщем, в постановке твоей задачи нет ничего необычного.
http://ad.cctpu.edu.ru/SSP/Prof/Glava29/Index6.html

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 23:17 20-11-2006

VadimLou

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Jokerjar

Цитата:

где там прокси? Подскажи а?

EwbTools.pas
procedure SetProxy(UserAgent, ProxyServer: string);

dvg06

Цитата:

Ребят, помогите а

это ... в клинику ... там всех вылечат

или к телепату с такими вопросами ...

Всего записей: 702 | Зарегистр. 22-07-2004 | Отправлено: 07:40 21-11-2006 | Исправлено: VadimLou, 07:44 21-11-2006

Widoms

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Ребята помогите.
Есть задача, наглядно вывести значения по направлению ветра с прибора.

Посмотрите как такое можно реализовать.
_http://img224.imageshack.us/my.php?image=cropimagerx6.jpg

Всего записей: 378 | Зарегистр. 09-01-2004 | Отправлено: 11:13 21-11-2006

Z MeZe

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Widoms

Цитата:

Посмотрите как такое можно реализовать.
_http://img224.imageshack.us/my.php?image=cropimagerx6.jpg

Если речь идет о том, как именно нарисовать такой "направленияветрамометр" - тогда есть готовые компоненты, к примеру: _http://www.lohninger.com/sdlindex.html (это то, что сразу всплыло в голове. Реализаций подобных ProgressBar-ов и прочего достаточно много и халявного).

Всего записей: 455 | Зарегистр. 09-02-2004 | Отправлено: 11:53 21-11-2006

STEEL

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Как передать имя генератора? Запрос должен выглядеть след образом.

select gen_id(GEN_ATTRACTION_ID,1) from RDB$DATABASE

Когда я передаю имя генератора GEN_ATTRACTION_ID, он принемает вид 'GEN_ATTRACTION_ID', а это не правильно, как избавится от ковычек?

Код:

function TfrmSklad.GenID(GeneratorName: String): Integer;
begin
with da.Query do begin
Close;
SQL.Clear;
SQL.Add('select gen_id(:GenName,1) from RDB$DATABASE');
ParamByName('GenName').AsString := GeneratorName;
ExecQuery;
Result := Fields[0].AsInteger;
end;
end;

Всего записей: 2293 | Зарегистр. 06-01-2002 | Отправлено: 17:25 21-11-2006

vshersh

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

STEEL
Напиши через Format:

Код:

function TfrmSklad.GenID(GeneratorName: String): Integer;
begin
with da.Query do begin
Close;
SQL.Clear;
SQL.Add(Format('select gen_id(%S,1) from RDB$DATABASE', [GeneratorName]));
ExecQuery;
Result := Fields[0].AsInteger;
end;
end;

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 17:31 21-11-2006

Yogi Bear

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Может кто-нибудь подскажет как записать на форме определенный интеграл? Хотелось бы как в MathType или MathCAD. Вообще как такое программировать? Изучаю Delphi, поэтому может быть вопрос элементарен.

Всего записей: 54 | Зарегистр. 08-09-2006 | Отправлено: 13:18 22-11-2006

OrlangurStep

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Так:
Ставишь на форму какой нибудь label и пишешь
label1.text := FloatToStr ( rezultat );
Конкретные параметры функции не помню (отвечают за формат вывода) посмотри в справке

Всего записей: 1392 | Зарегистр. 08-04-2006 | Отправлено: 21:06 22-11-2006

lolman

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Люди!! Помогите пожалуйста бедному студенту!!=))) Надо разбить заданную последовательность чисел на два непересекающихся подмножества, в которых разности между суммами чисел, делящихся без остатка на число k, и остальных наиболее близка друг к другу.
хельп..))

Всего записей: 15 | Зарегистр. 15-08-2006 | Отправлено: 18:52 23-11-2006

bodomus

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

To Xy
Не заморачивайся с потоками. То что ты хочешь вывести окно из потока тяжело, да и не надо в твоем случае. Лучше пользуйся сообщениями Windows. Работать гарантированно будет, из потока шлешь сообщения в главную форму, а она в свою очередь отображает окно. Ну и т.д.

Всего записей: 121 | Зарегистр. 18-11-2005 | Отправлено: 13:14 24-11-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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi 2
ShIvADeSt (22-03-2007 02:18): http://forum.ru-board.com/topic.cgi?forum=33&topic=8142

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC