Форум: "Сети";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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 то все.. будет данная трабла. Я в шоке :-)



False_Delirium   (2002-01-04 05:41) [1]

Pointer(dop[1])^ - так попробуй...



YuriBtr   (2002-01-04 09:45) [2]

Ничего странного .NET
IMHO ServerSocket1ClientRead предназначен для получения данных сервером от клиента. И поэтому мне совсем не понятен смысл процедуры:
clientsocket1.Socket.SendBuf(dop,i); // Здесь ошибка
Зачем???
Ты уже получил данные - они в dop.
Теперь их просто обработай.
Но перед получением сервером данных, ты их должен послать :) через clientsocket1.Socket.SendBuf(dop,i) но это должно быть совсем в другой процедуре. Например при клике на кнопке "послать файл"



Malder   (2002-01-04 16:55) [3]

Делал я прогу для того, чтобы через нее проходил трафик. То есть чтобы Explorer связывался НЕ с www.ya.ru (например), а сначала с моей прогой, которая уж связывается с удаленной машиной. То есть типа как прокси получается. Ну нужно мне так. Вы лучше обьясните в чем ОШИБКА ??? Это что, глюк DELPHI ?




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




Наверх





Память: 0.72 MB
Время: 0.017 c
6-57483           Surf                  2002-01-04 09:12  2002.03.18  
Помогите! Не могу найти. Вопрос по NMHTTP.


1-57460           EsKor                 2002-03-04 10:42  2002.03.18  
Acces violation в условии цикла repeat - until


4-57559           Maxman                2002-01-04 07:16  2002.03.18  
Запуск приложений


1-57430           дикое Кенгуру         2002-02-27 08:38  2002.03.18  
Как можно шифровать текст в Memo ListBox RichEdit перед сохранением на диск. А при чтении расшифровывать. Чтоб никто не читал его. Желательно чтобы было быстро и просто.


3-57280           ивкен                 2002-02-17 17:02  2002.03.18  
Как изменить одну таблицу, на основании информации в другой