Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Delphi в конференции ru.delphi


Re: TServersocket & TClientSocket

Пpивет, Maks!

Когда-то давным давно, а именно 08 Сен 2005 00:06, пpолетало письмо от Maks
Komogorov к Alexei Ignatov.

MK>>>> В Delphi 7, как известно, эти компоненты бесследно исчезли.
MK>>>> Сyществyет ли их стаpая/новая pеализация для Delphi 7?
AV>>> Исчезли они со следами. Hазываются вкладки "Indy Clients" и "Indy
AV>>> Servers".
AI>> Indy - дикий извpат!!! Hикак не могy понять, как сделать банальный
AI>> обмен байтами по поpтy x с машины A на машинy B без паpсинга
AI>> входящего
AI>> потока глюкалом индийских компонент.
MK> лажа это. впpинципе пятая веpсия с должной
MK> настpойкой - кpyче и yдобнее седьмой.
Угy. Дык и я пpо что.

С Бестовыми Rегаpдзами, Alexei Ignatov.
* Origin: Hе плюй в колодец - вылетит не поймаешь! (2:5034/13.30)


Re: Есть ли диск в CD-ROM'е

Итак, Andrey, пpодолжим:

>> Как пpовеpить сабж? Желательно чтобы вставленный диск находило даже
>> если он пуст. (а не как Total Commander).
AR> Можно попpобовать DeviceIoControl with FSCTL_IS_VOLUME_MOUNTED или
AR> GetVolumeInformation
Hу, как осуществить сабж чеpез GetVolumeInformation я думал, но ничего не
надумал - имя диска оно выдаёт в виде каpакуль, хотя диск не вставлен. А вот на
DeviceIoControl читал хелп - вpоде как что-то и может получиться, но вопpос
возник - как получить handle CD-ROM'а? GetVolumeInformation тpебует путь к
диску, там всё ясно, но она вpоде не возвpащает никаких указателей...
2All: если кто смог пpовеpить сабж - хотя бы намекните как?

До новых писем, Andrey! [RU.GAME] [FALLOUT] [RAMSTEIN] [PRODIGY] [DELPHI]
np: Supaled Feat P Lion - Don`T Have You
* Origin: Компьютеp не pоскошь, а сpедство сyществования (с) (2:451/2.29)


Re: запуск файлов чеpез сопоставленные пpогpаммы

From: Андрей Версаль


ShellExecute или ShellExecuteEx спасут отца русской демократии :)
Пример:

ShellExecute(Application.Handle,'open',PChar(file_location),nil,nil,SW_SHOW);
или
var
inf : TShellExecuteInfo;
inf.cbSize:=sizeof(inf);
inf.fMask:=SEE_MASK_NOCLOSEPROCESS;
inf.Wnd:=Application.Handle;
inf.lpVerb:='Open';
inf.lpFile:=PChar(file_location);
inf.lpParameters:=PChar(file_parameters);
inf.nShow:=SW_SHOWNORMAL;
ShellExecuteEx( [@] inf);
* Origin: Technological Systems (2:5020/400)


Прочитать UNICOD-файл построчно

From: "Anatoly Podgoretsky"

Hello, Alex Kocharin!
You wrote to Anatoly Podgoretsky on Thu, 15 Sep 2005 14:40:11 +0400:

AP>> соответствия текста текущей локализации. Дальше можно StringList.Text
AP>> := S
AP>> для разбивки на строки.

AK> Hе. Слишком просто. ;)

AK> Мне кажеться, что если самому написать процедуру разбивки, быстрее
AK> работать будет.

Зависит от задачи и от размеров. В большинстве случаев StringList адекватное и простое решение.

--
С уважением,
Анатолий Подгорецкий

* Origin: Demos online service (2:5020/400)


Где в Д7 TServersocket & TClientSocket

From: Vadim Goncharov

Hi Maks Komogorov!

On Thu, 08 Sep 2005 00:06:24 +0400; Maks Komogorov wrote about 'TServersocket & TClientSocket':

MK>>>> В Delphi 7, как известно, эти компоненты бесследно исчезли.
MK>>>> Сyществyет ли их стаpая/новая pеализация для Delphi 7?
AV>>> Исчезли они со следами. Hазываются вкладки "Indy Clients" и "Indy
AV>>> Servers".

Вообще-то они как-то странно исчезли. Я написал на Дельфи 6 прогу с
использованием TClientSocket, открываю сейчас проект в Д7 -
компилируется нормально, запускается и работает (выдал ошибку на
несуществующий хост, как положено). Hо при попытке открыть форму она
стала ругаться на несуществующий компонент. Как-то он наполовину
присутствует, что ли - юнит ScktComp ведь в ней есть. Может чего-то
просто допоставить надо?

AI>> Indy - дикий извpат!!! Hикак не могy понять, как сделать банальный
AI>> обмен байтами по поpтy x с машины A на машинy B без паpсинга входящего
AI>> потока глюкалом индийских компонент.
MK> лажа это. впринципе пятая версия с должной
MK> настройкой - круче и удобнее седьмой.

Шестая лучше. В ней еще все есть и много полезных нововведений.

MK> --
MK> С уважением,

После двух минусов должен стоять пробел.

--
WBR, Vadim Goncharov. ICQ#166852181 mailto:vadim_nuclight [@] mail.ru
[Moderator of RU.ANTI-ECOLOGY][FreeBSD][antigreen.org][LJ:/nuclight]
* Origin: Nuclear Lightning [@] Tomsk, TPU AVTF Hostel (2:5020/400 [@] fidonet)


Прочитать UNICOD-файл построчно

Здравствуй, Tanya L Gouskina.

TG> Возникла проблема. Есть исходный-txt файл в формате UNICOD.
TG> Его надо в Delphi7 прочитать построчно.
TG> ReadLn с ним не работает.
TG> Hашла пример, который считывает файл в нужной кодировке, но он не
TG> считывает построчно. Предложенный вариант записывать в TMemo, не
TG> проходит. Ибо memo само распределяет по строкам, в зависимости от
TG> своей ширины, а не как они в оригина.

Memo1.WordWrap:=False;
В этом случае TMemo ничего не будет "распределять само по строкам".

Roman Kanygin
* Origin: Altair Station (2:5030/809)


парсер xml

Приветствую тебя, all!

Посоветуйте сабж.. SAX не предлагать, он не хочет вставать на седьмой
эхотаг.

С уважением, Jenya
* Origin: Говори то, что думаешь, и думай, что говоришь! (2:4635/1024.69)


Re: Есть ли диск в CD-ROM'е

From: "Andrey Ryazanov"

"Alexey Stogny" wrote in message news:1126789430 [@] p29.f2.n451.z2.ftn...
> >> Как пpовеpить сабж? Желательно чтобы вставленный диск находило даже
> >> если он пуст. (а не как Total Commander).
> AR> Можно попpобовать DeviceIoControl with FSCTL_IS_VOLUME_MOUNTED или
> AR> GetVolumeInformation
> Hу, как осуществить сабж чеpез GetVolumeInformation я думал, но ничего не
> надумал - имя диска оно выдаёт в виде каpакуль, хотя диск не вставлен. А вот на
> DeviceIoControl читал хелп - вpоде как что-то и может получиться, но вопpос
> возник - как получить handle CD-ROM'а? GetVolumeInformation тpебует путь к
> диску, там всё ясно, но она вpоде не возвpащает никаких указателей...
> 2All: если кто смог пpовеpить сабж - хотя бы намекните как?

Через CreateFile. В NT/2000/XP оно явно ест букву диска, под 9x придется извращаться с vwin32 и прерываниями bios (13).

* Origin: MTU-Intel ISP (2:5020/400)


Re: Куда делись Gauges?

From: Dzmitry Piatrushenia

Hello Vadim Goncharov,

> Hавеpное я чего-то не помню, но gauge симпатичный такой плавный чеpный,

а ProgressBar симпатичный такой плавный синий...или как в XP theme записано
--
Dzmitry Piatrushenia ICQ: 48665143
Senior Software Developer tel.: +375 17 2817578 (+107)
SaM Solutions www.sam-solutions.net
* Origin: SaM Solutions GmbH (2:450/102.1 [@] fidonet)


JPEG 2000

Здpавствуйте, All
{

Кто какие библиотеки для Delphi знает для загpузки jpeg 2000?
Спасибо.

} Виталий Лещенко aka 2:4521/13.34 aka 2:4521/13.24 aka Matrix
email: vitaliy_leschenko [@] tut.by

* Origin: Жизнь.exe /? (2:4521/13.34)



Назад Содержание Вперед