Форум: "Сети";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Вниз

Странная ошибка в программе   Найти похожие ветки 

← →
Malder   (2002-01-04 00:55) [0]

рофесcионалы, пожалуйста, помогите. Просто нереальная ошибка какая то. На форме ClientSocket1 и ServerSocket1. Вот код:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var i:integer;
dop:array of char;
begin
i:=socket.ReceiveLength ;
setlength(dop,i+1);
socket.ReceiveBuf(dop,i);
clientsocket1.Socket.SendBuf(dop,i); // Здесь ошибка
end;

Выползает на последней строчке EAccessViolation.

Если вместо массива char"ов использовать Pchar :-) и GetMem вместо setlength то все тоже самое. Я просто не знаю, что делать. Перепробовал все.
Протестировать можно, например, задавая ServerSocket1.Port:=80, а ClientSocket по фигу куда коннектить (хоть на microsoft.com ). И как только включишь IE и введешь http://127.0.0.1 то все.. будет данная трабла. Я в шоке :-)

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.03.18;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.004 c