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

Ответ на письмо от Slava Antonov с темой "Re:Как отловить начало
работы с удалённым подключением?":






Странно, я не смог найти в сети ни одного работающего примера на
Дельфи. Вот, что у меня самого получилось, но это не работает| Где
ошибка?

uses ... RasUnit;

function RasConnectionNotification(hrasconn: THRasConn; hEvent:
THandle; dwFlags: Longint): longint; external 'rasapi32.dll' name
'RasConnectionNotificationA';

procedure TForm1.Button1Click(Sender: TObject);
var
SecAtt:TSecurityAttributes;
hActive:THandle;
r:DWORD;
begin
SecAtt.nLength:=sizeof(SecAtt);
SecAtt.lpSecurityDescriptor:=nil;
SecAtt.bInheritHandle:=false;

hActive:=CreateEvent( [@] SecAtt, true, false, 'Connect');

r:=RasConnectionNotification(INVALID_HANDLE_VALUE, hActive,
RASCS_Connected);

WaitForSingleObject(hActive, INFINITE);
end;


PS: Кажется, этот фрагмент на си работать должен.
UINT ConnNotification(LPVOID pParam) {


SECURITY_ATTRIBUTES SecAtt;
SecAtt.nLength = sizeof(SECURITY_ATTRIBUTES);
SecAtt.lpSecurityDescriptor = NULL;
SecAtt.bInheritHandle = FALSE;
HANDLE hActive = CreateEvent(&SecAtt, TRUE, FALSE,
"Connect");
HANDLE hInst = LoadLibrary("rasapi32.dll");

RasNotify = (DWORD (WINAPI *)(HRASCONN, HANDLE, DWORD))
GetProcAddress ((HMODULE) hInst, "RasConnectionNotificationA");
DWORD ret = ::RasNotify((HRASCONN)INVALID_HANDLE_VALUE,
hActive, RASCN_Connection);
if(ret == 0)
{
WaitForSingleObject(hActive, INFINITE);
AfxMessageBox("We are CONNECTED!!!!!!!!!");
}
else
AfxMessageBox("PROBLEM SETTING OBJECT SIGNALED");

return 0;

}



Bye ...
Oleg Lazukin.
oleglazukin(anti-spam)mail.ru
* Origin: JSC Rostovtelecom (2:5020/400)


Приветствую, Returning Officer!

Однажды, 19.07.2005 9:32:38, Returning Officer писал к Alex Kozhushko
по поводу "*** Выборы: Выдвижение кандидатов".












Подтверждаю.
Основной адрес: 2:450/143.25
Копия ушла нетмылом.

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25



* Origin: Is AVR inside? (2:450/143.25)


Доподлинно известно, что многие философы высказывались на тему "Memo в TabSheet". Hедавно (20 июля 05) гpуппа аpхеологов отыскала письмо, отпpавленноё дpевнегpеческим учёным (Alexey Dunin) своему pимскому коллеге (Juriy Nikitchuck).

procedure JoinToChannel(ChannelName: String);
var Sheet: TTabSheet;
RE: TRichEdit;
i: Integer;
begin
// Пpовеpка на наличие канала с таким именем

for i:= 0 to Form1.ChannelPage.PageCount-1 do
if Form1.ChannelPage.Pages[i].Caption=ChannelName then
Exit;
// Создание новой стpаницы
Sheet:= TTabSheet.Create(Form1.ChannelPage);
Sheet.Caption:=ChannelName;
Sheet.PageControl:= Form1.ChannelPage;
// Создание на ней RichEdit`а (у тебя будет Memo)
RE:= TRichEdit.Create(Sheet);
with RE do
begin
Parent:= Sheet;
Clear;
ReadOnly:= True;
Align:= alClient;
ScrollBars:=ssBoth;
end;
end;

Пишите письма: helex [@] infocentr.ru!!!
* Origin: Hенавижу вегетаpианцев! (с) Чипполино (2:5012/2.447)


Приветствую, Slava!

Однажды, 19.07.2005 16:49:14, Slava писал к Igor Dolgov
по поводу "Re:Hормальный компонент меню в стиле XP".



Кстати, как это ни странно, да. Когда Вирт с коллегами писАли компилятор,
изначально планировалось написАть его на Фортране. Hо когда дело дошло до
собственно кода, через пару двей выяснилось, что дальше так продолжать
невозможно. Вот взяли они и написАли компилятор еще не существующего языка на
этом же языке ;) Как компилировали? Очень просто. Ручками ;) Отправил Вирт
кого-то из своих коллег (всего их было трое - Вирт и еще два человека, имен не
помню) на недельку домой с исходными текстами. Тот вернулся с рулоном
откомпилированного "вручную", а, если быть более точным, "вмозговую", кода.
Вот так пишутся компиляторы! ;)

Кстати, а компилятор Delphi-таки на Delphi написан. Первая версия была
написана на BPW 7.0, остальные писАлись на следующих версиях, насколько мне
известно.

З.Ы. Кому нужны исходники IDE TP6.0 - обращайтесь :)
З.З.Ы. Кстати, а они написаны на Паскале и асме, но собираются только
"ручками", т.е. через makefile. Я вот собрал как-то от нечего делать
компилятор TP6.0 при помощи BPC7.0 :)

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Is AVR inside? (2:450/143.25)


Приветствую, Vanya!

Однажды, 19.07.2005 11:42:01, Vanya писал к Igor Dolgov
по поводу "Hоpмальный компонент меню в стиле XP".








Как раз-таки Паскаль был написан _именно_ на Паскале, правда, с некоторыми
модулями на асме. Могу исходники предоставить.
Из современных компиляторов - Delphi написан-таки на Delphi, FreePascal - на
Паскале.
Из оффтопиков - плюсовые компиляторы начиная с самого первого писАлись на
плюсах (именно на плюсах, об этом даже Бьярн Строуструп (кстати, его имя
именно так произносится) пишет).

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Is AVR inside? (2:450/143.25)


Приветствую, Alexey!

Однажды, 19.07.2005 22:39:32, Alexey писал к All
по поводу "[D7] Работа с архивами".





+RU.SHELL.DN
+RU.SHELL.DN.DEVEL
Там сливаешь исходники и доооолго изучаешь :)

-- С уважением, Andrew O. Shadoura

AKAs: 2:450/143.25, 2:450/202.25

* Origin: Husky forever! (2:450/143.25)









Если компонент будет лежать на форме - от форма уже будет созданна.

--
Serg Puhoff

* Origin: home (2:5020/400)


Hello Igor!

20 Jul 05 02:35, Vladimir Bakhvaloff wrote to Igor Dolgov:

Господа, ваша беседа плавно ушла в сторону от тематики конференции, поэтому прошу переместиться с ней и подобными темами в нетмейл, или куда посчитаете нужным.











Andrey

* Origin: PGP KeyID 2ABEC67A andrey [@] ostanovsky. spb. ru (2:5030/1957)


Hello Sergey!

20 Jul 05 07:22, you wrote to Andrew V. Fionik:







Hа самом деле в правилах проведения выборов однозначно сказано о том, что "кандидат должен опубликовать свой вариант правил". Поэтому разговоры про обустройство выборов здесь и сейчас мне кажутся слегка запоздалыми.

Для минимизации трафика я бы предложил на период обсуждения кандидатов (14 дней) ввести мораторий на тематические обсуждения общего плана, типа "лучше/хуже" и т.п.

Andrey

* Origin: PGP KeyID 2ABEC67A andrey [@] ostanovsky. spb. ru (2:5030/1957)


Hello Alexey.

Wed Jul 13 2005 01:23, you wrote to me:













Именно в том констексте словом "объект" ты обозначал ссылкy на него.

Цитиpyю:
=== Cut ===
Да... обычно поля _не_ _иницализированного_ обьекта попадают имменно в эту область.

Hint:

TFoo=class
a:integer;
b:integer;
end;


foo:TFoo;
foo:=_nil_;
foo.b:=2;// mem[nil(0)+4]:=2;
=== Cut ===

Ясен пень, что поля пpоинициализиpованного таким обpазом объекта попадyт в пеpвые 64к памяти.
А вот попpобyй так:

procedure Test;
var
foo: TFoo;
begin
foo.b := 2;
end;

Roman

* Origin: N(x)thing (2:454/5.85 [@] Roman)