> Скажите PLS как огpаничить pазмеp папки. Скажем я" />
Техническая поддержка :

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

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

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

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


Re: огpаничить pазмеp папки

From: "Slava Antonov"

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"

Доброго здоровья, 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"

Доброго здоровья, 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"
> ...изложу идею подругому:
> У меня есть "выбранные записи" из "базы данных", ...данные разного типа:
> 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;



3456
adqeqweqweqwe


Конечно это избыточно, но очень легко в отладке и сопровождении.

* Origin: South Ural Network (2:5010/70)


Интерфейсы в Delphi7

From: Демид Тузенко

Привет.
А что это в 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.

--
<>

with regards
Demid Tuzenko

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


Отладка COM+ объектов под WinXP SP2

From: "Serebryakov Pavel"


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)



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