Обсуждение программирования на Delphi в конференции ru.delphi
Re: огpаничить pазмеp папки
From: "Slava Antonov" <deadbeef [@] so.yandex.ru>
Hello Andrey Ryazanov, you wrote:
>> Скажите PLS как огpаничить pазмеp папки. Скажем я напишу пpогpамму котоpая
>> постоянно будет висеть в памяти и пpовеpять сколько весит папка. Как только
> NTFS Quotas. И причем тут дельфи?
Квоты действуют на уровне диска в целом, а не отдельно взятой папки.
Причем квоты ограничивают объем данных по пользователям.
--
Всего хорошего, Слава.
deadbeef.narod.ru
* Origin: (http://news.cca.usart.ru/) USURT's FidoNET<-> (2:5080/1003 [@] fidonet)
TServersocket & TClientSocket
From: "Anthony Volkov" <lab531 [@] dst.khv.ru>
Доброго здоровья, Maks!
Помнится, Вы писали to All когда-то Wed, 07 Sep 2005 01:16:56 +0400:
MK> В Delphi 7, как известно, эти компоненты бесследно исчезли.
MK> Существует ли их старая/новая реализация для Delphi 7?
Исчезли они со следами. Hазываются вкладки "Indy Clients" и "Indy Servers".
С наилучшими пожеланиями, Anthony Volkov.
E-mail: lab531 собачучка dst точечка khv еще одна ru
"Глупость не освобождает от необходимости думать."
Станислав Ежи Лец
* Origin: REDCOM News Server (2:5020/400)
Модемный конект
From: "Anthony Volkov" <lab531 [@] dst.khv.ru>
Доброго здоровья, Maks!
Помнится, Вы писали to All когда-то Wed, 07 Sep 2005 01:05:14 +0400:
MK> Требуется организовать связь используя
MK> модемный прозвон, наподобие как это реализовано
MK> в стандартном HyperTerminal.
MK> Каким образом это можно осуществить?
MK> Существуют ли какие-либо компоненты?
MK> Буду также признателен _работающим_ ссылкам
MK> на исходники, документацию и компоненты по данной части.
Лучший продукт, из того с чем я работал:
sourceforge.net/projects/tpapro
С наилучшими пожеланиями, Anthony Volkov.
E-mail: lab531 собачучка dst точечка khv еще одна ru
"Глупость не освобождает от необходимости думать."
Станислав Ежи Лец
* Origin: REDCOM News Server (2:5020/400)
Чтение компонента из потока (TMemoryStream)
Hello aleXander.
Tue Sep 06 2005 01:19, you wrote to all:
aF> Помогите понять, почему чтение компонента из потока не получается,
aF> хотя запись в поток проходит нормально.
aF> У меня есть компонент, унаследованный от TComponent, к которому
aF> добавлено несколько свойств (строки, целые числа, и тп)
aF> Чтение выдает ошибку Read error. Вот примерный код:
[..skip..]
aF> А читаю так (выдается EClassNotFound "Class TMyComp not found"):
[..skip..]
Попpобyй RegisterClass(TMyComp);
Roman
* Origin: N(x)thing (2:454/5.85 [@] Roman)
Re: Массив в TStream
"Milchenko Alexandr" <HAckSTok [@] Gmx.co.uk>
> ...изложу идею подругому:
> У меня есть "выбранные записи" из "базы данных", ...данные разного типа:
> 01. blob`ы;
> 02. memo;
> 03. Integer, Byte, TDate;
> 03. Boolean;
> 04. String (PChar) и т.д.
>
> Мне нужно это все переслать по локальной сети на др. компьютер
> (TClientSocket/TServerSocket).
>
> Я решил все данные загнать в массив (что бы избежать содания временных
> файлов
> с выбранными данными) ...и из массива конвертировать в TStream, потом
> TStream
> запакавать через Z-Lib и отправить на др. конец провода...
>
> ...собственно - это все то, что ради чего я сейчас тут :)
При передаче подобных данных я бы рекомендовал HЕ пользоваться бинарными
форматами. Т.е. лучше посылать в виде текста. Hапример запись:
TMyRec=record
I:Integer;
S:String;
end;
<record>
3456
<s>adqeqweqweqwe
<record>
Конечно это избыточно, но очень легко в отладке и сопровождении.
* Origin: South Ural Network (2:5010/70)
Интерфейсы в Delphi7
From: Демид Тузенко <demid [@] pstu.edu>
Привет.
А что это в D7 такое хитрое изобрели, что при импорте библиотеки типов в интерфейсах
появляются какие-то странности вида GhostMethod_<имя>_40_11. Hапример, интерфейс
ADO.Fields имеет вот такое объявление:
Fields = interface(Fields20)
['{00000564-0000-0010-8000-00AA006D2EA4}']
procedure GhostMethod_Fields_0_1; safecall;
procedure GhostMethod_Fields_4_2; safecall;
procedure GhostMethod_Fields_8_3; safecall;
procedure GhostMethod_Fields_12_4; safecall;
procedure GhostMethod_Fields_16_5; safecall;
procedure GhostMethod_Fields_20_6; safecall;
procedure GhostMethod_Fields_24_7; safecall;
procedure GhostMethod_Fields_28_8; safecall;
procedure GhostMethod_Fields_32_9; safecall;
procedure GhostMethod_Fields_36_10; safecall;
procedure GhostMethod_Fields_40_11; safecall;
procedure GhostMethod_Fields_44_12; safecall;
procedure GhostMethod_Fields_48_13; safecall;
procedure Append(const Name: WideString; Type_: DataTypeEnum; DefinedSize:
ADO_LONGPTR;
Attrib: FieldAttributeEnum; FieldValue: OleVariant); safecall;
procedure Update; safecall;
procedure Resync(ResyncValues: ResyncEnum); safecall;
procedure CancelUpdate; safecall;
end;
В Delphi5 ничего подобного не было.
Вопрос, собственно, возник по тому поводу, что непонятно отчего перестал выполняться вызов
Fields.Update. Точнее, он не то что перестал выполняться, а попытка его вызвать через
v-table генерирует Access Violation, причём в окне CPU видно, что вызов call ведёт куда-то
за пределы программы. При этом Get_Items вызывается нормально, да и этот же update можно
спокойно вызвать через IDispatch.
--
<<Hope this helps>>
with regards
Demid Tuzenko
* Origin: Demos online service (2:5020/400)
Отладка COM+ объектов под WinXP SP2
From: "Serebryakov Pavel" <serebryakov [@] krista.ru>
Hi.
Кто нибудь знает как отлаживать COM+ объекты написаные на Delphi 5 под
Windows XP Service Pack 2 ?
Под Windows 2000 Professional все нормально
отлаживается.
* Origin: Krista RPA (2:5020/400)
радио
|========/ ПpиветЪ, Miha... \========|
KA>> Юзать Bass.dll (или fmod.dll если там радио есть... не помню).
MY> вроде TBassplayer может проигрывать ... а если бы как нить без
MY> дополнительных библиотек ? (мне нужна 1 функция , и не нужен лишний вес
MY> проги :))
Иногда одно без другого не бывает. :)
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)
Ищу компонент для записи картинок на DVD
|========/ ПpиветЪ, Burlakov... \========|
И что сей компонент должен делать?
Если то, о чем я подумал - юзай NeroAPI
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)
огpаничить pазмеp папки
|========/ ПpиветЪ, Rouslan... \========|
RI> Скажите PLS как огpаничить pазмеp папки. Скажем я напишу пpогpамму
RI> котоpая
RI> постоянно будет висеть в памяти и пpовеpять сколько весит папка. Как
RI> только pазмеp ее пpевысит заданную.. oops, вот здесь я и не знаю что можно
RI> сделать... как быть-то? не могу-же я удалять какие-либо файлы, это
RI> негативно. Подскажи, всезнающий All?
Э... чего сделать-то надо?
Типа "уменьшить размер папки без удаления файлов"?
Hу... зарарить можно.
А еще можно подумать и написать сюда вопрос, содержащий вопрос. :)
|========\ BCNU, Alex Kocharin. /========|
* Origin: AK-Station (2:5012/2.470)