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

Программирование. Форум !!!

За 2003-12-12

[anons] Адреса -sub@, -digest@, -unsub@, -rules@

Здравствуйте !

Хочу всем сообщить, что субскрайб ввел поддержку адресов вида:

код.листа-rules@subscribe.ru - получить правила

код.листа-sub@subscribe.ru - подписаться или
cменить фомат на "каждое письмо"

код.листа-digest@subscribe.ru - подписаться на дайджест или
сменить формат на "дайджест"

код.листа-unsub@subscribe.ru - отписаться

В случае -sub@, -digest@ и -unsub@ высылается письмо с просьбой
подтвердить действие и в случае подтверждения всё выполняется.

При подписке, если адрес до сих пор не был зарегистрирован
на Subscribe.Ru, он подписывается без обычного подтверждения
так как сам факт подтверждения роботу говорит что владелец
адреса как минимум в момент ответа находился в здравом уме.

Адреса работают не только для листов (как можно подумать из примера),
но и для обычных рассылок тоже.

Есть синонимы -subscribe@ и -unsubscribe@

Так что теперь можно прямо по почте подписаться, отписаться,
сменить некоторые параметры подписки.

Всем удачи.

С уважением, Вахтуров Виктор.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-12 18:32:44 (#33954)

PHP для IIS

Здравствуйте

Как правильно расшарить доступ для PHP установленном на IIS под
Вин2000. Ставлю галочки для записи, чтения и выполнения сценария, а
команда fopen ($file, a) не хочет выполняться. У кого есть опыт,
подскажите, please.

-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: http://subscribe.ru/member/unsub?grp=comp.soft.prog.prog&email=
http://subscribe.ru/ mailto:ask@subscribe.ru

   2003-12-12 08:57:32 (#33652)

Re[2]: InternetExplorer

Здарова, Victor!

12 декабря 2003 г., 00:05:44, ты намылил:

И снова Big tnx, Victor!!!
VVV> То есть пишете на делфи что то типа :
VVV> myWrowser.document.designMode = ...;

Когда я выложил EDIT_IE.HTM.htm сам на него особо и не смотрел, а надо
было!!!

Вот рабочий код если кому надо
uses mshtml;
if Design then (WebBrowser.Document as IHTMLDocument2).designMode:='on'
else (WebBrowser.Document as IHTMLDocument2).designMode:='off';

PS: Сорри за пост 3-х пар одинаковых писем.
Отправлял не с того мыла.

   Томилов Александр 2003-12-12 03:16:37 (#33618)

Release IShellFolder

Здарова, программеры!

Есть прога на основе примера Delphi C:\Program Files\Borland\Delphi5\Demos\Virtual
Listview
Для организации сортировки списка файлов я добавил
ParentShellFolder:IShellFolder;, без этого не знаю как, да и поздно уже
переделывать.
Вся проблема в утечке ресурсов. Доходит до того, что не освобождается
до нескольких мегов памяти, что не есть хорошо. Методом научного тыка
был определен источник утечки - ParentShellFolder:IShellFolder.
Вопрос: как эту беду освободить. Через _Release глючит, может я как-то
не так его юзаю?

type
PShellItem=^TShellItem;
TShellItem=record
MenuID,FullID,ID:PItemIDList;
Empty:Boolean;
DisplayName,TypeName,FullPath:string;
ImageIndex,Size,Attributes:Integer;
ModDate:string;
ParentShellFolder:IShellFolder;
end;

var FIDList,FFindIDList:TList;

function TMainForm.ShellItem(Index:Integer):PShellItem;
begin
Result:=PShellItem(FIDList[Index]);
end;

procedure DisposePIDL(ID:PItemIDList);
var Malloc:IMalloc;
begin
if ID=nil then Exit;
OLECheck(SHGetMalloc(Malloc));
Malloc.Free(ID);
end;

procedure TMainForm.ClearIDList;
var I:Integer;
begin
for I:=0 to FIDList.Count-1 do
try
if Assigned(FIDList[I]) then
begin
DisposePIDL(ShellItem(I).ID);
DisposePIDL(ShellItem(I).MenuID);
DisposePIDL(ShellItem(I).FullID);

===Если этот кусок закомментарить то идет утечка ресурсовif ShellItem(I)^.ParentShellFolder<>nil then
begin
IShellFolder(ShellItem(I)^.ParentShellFolder)._Release;
ShellItem(I)^.ParentShellFolder:=nil;
end;
===А если нет, то Dispose(ShellItem(I)); приводит к офигенным ошибкам и
прога вылетаетtry
Dispose(ShellItem(I));
except
end;
end;
finally
//FIDList[I]:=nil;
end;
FIDList.Clear;
end;

   Томилов Александр 2003-12-12 03:16:32 (#33617)