Builder C++ 6.0
В программе использую Socket. При сбое в сети не получалось восстановить коннект, выдавалась ошибка Win API. Поэтому сделала при ошибке пересоздание Socket-а:

TClientSocket *temp = ClientSocket1;
ClientSocket1 = new TClientSocket(temp->Owner);
ClientSocket1->Active = false;
ClientSocket1->ClientType = temp->ClientType;
ClientSocket1->Address = temp->Address;
ClientSocket1->Port = temp->Port;
ClientSocket1->OnConnect = ClientSocket1Connect;
ClientSocket1->OnDisconnect = ClientSocket1Disconnect;
ClientSocket1->OnRead = ClientSocket1Read;
ClientSocket1->OnError = ClientSocket1Error;
delete temp;

Но при первом же обращении к ClientSocket1 программа вылетала с Access Violation, такое ощущение, что при delete уничтожался и новый сокет.

Тогда переделала:

TClientSocket *temp;
temp = new TClientSocket(ClientSocket1->Owner);
temp->Active = false;
temp->ClientType = ClientSocket1->ClientType;
temp->Address = ClientSocket1->Address;
temp->Port = ClientSocket1->Port;
temp->OnConnect = ClientSocket1Connect;
temp->OnDisconnect = ClientSocket1Disconnect;
temp->OnRead = ClientSocket1Read;
temp->OnError = ClientSocket1Error;
delete ClientSocket1;
ClientSocket1 = temp;

Теперь все работает. В общем-то и вопроса нет, но осадок остался. На мой взгляд я делаю в обоих случаях абсолютно одно и то же, так почему же в первом случае не работает?

Буся

Я вообще то считала, что в следующей строке первого варианта
ClientSocket1 = new TClientSocket(temp->Owner);
в ClientSocket1 заносится новый адрес, а в temp остается старый

может и права, а на деле первый вариант не работает :)

Следующая строчка текста:

if (ClientSocket1->Active)

Вот на ней и вылетает в первом варианте по EAccessViolation
А во втором варианте все в порядке

Точно.

а дебагить сервис как-то не в кайф.

ClientService1 объявлен в DataModule, созданном при разработке, не в runtime

Итак, поясняю. Я вставила печать в файл между каждыми строчками этого проклятого кода. После процитированного куска идет следующее "if (ClientSocket1->Active)", естественно перед иф-ом была вставлена печать. В этом иф-е (он заметим без элса) первой строчкой опять же вставлена была печать. И после иф-а тоже тут же была вставлена печать. Итак печать перед ифом срабатывала, а в иф-е, и тем более после иф-а нет. Так что вопросов никаких - вылетало именно при чтении проперти ClientSocket1->Active. Еще варианты?

Очень хорошая идея распечатать адреса, как-то не подумала, итак (первый temp, второй ClientSocket1):

после TClientSocket *temp = ClientSocket1;
1: 009E88A8 009E88A8

после ClientSocket1 = new TClientSocket(temp->Owner);
2: 009E88A8 00A08DE4

перед delete temp;
3: 009E88A8 00A08DE4

после delete temp;
4: 009E88A8 00000000

Нонсенс

Слушайте, я провела эксперимент, итак, чистая форма, кнопка и сокет, вот дфм:
object Form1: TForm1
Left = 192
Top = 107
Width = 696
Height = 480
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Button1: TButton
Left = 296
Top = 120
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 0
OnClick = Button1Click
end
object ClientSocket1: TClientSocket
Active = False
ClientType = ctNonBlocking
Port = 0
Left = 112
Top = 32
end
end

Вот текст на кнопку:
TClientSocket *temp = ClientSocket1;
FILE *log=fopen("c:\\log.txt","a");
fprintf(log,"1: %p %p\n",temp,ClientSocket1);
ClientSocket1 = new TClientSocket(temp->Owner);
fprintf(log,"2: %p %p\n",temp,ClientSocket1);
ClientSocket1->Active = false;
ClientSocket1->ClientType = temp->ClientType;
ClientSocket1->Address = temp->Address;
ClientSocket1->Port = temp->Port;
fprintf(log,"3: %p %p\n",temp,ClientSocket1);
delete temp;
fprintf(log,"4: %p %p\n",temp,ClientSocket1);
fclose(log);

Все больше ничего. И вот содержимое полученного файла:
1: 00BC6E30 00BC6E30
2: 00BC6E30 00BC723C
3: 00BC6E30 00BC723C
4: 00BC6E30 00000000

Версия С: Enterprise 6.0 Build 10.166
Windows 2000 Build 2195 SP4

Может для интереса проверите?