Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.07.14;
Скачать: [xml.tar.bz2];

Вниз

Socket Error   Найти похожие ветки 

 
MTS   (2003-06-25 11:30) [0]

Раньше я использовал Delphi 5 и учился работать с сокетами. Все нормально работало. Сейчас поставил себе Дельфи 6, запускаю тарые уроки а они не работают. Думаю что я что-то там нахимичил. Беру учебник снова пробую переписать .... - все равно не работают. Дошло до того, что я поставил себе дельфи 7 и все равно таже ошибка.
А пишет он следующее:

Project NNN.exe raised exception class ESocketError with message "Windows socket error: запрос на отправку или получение данных (when sending on a datagram socket using a sendto call) no address was suplied (10057)? on API "recv". Process stopped. Use stop or ran to continue.

Как мне с этим боросться?


 
Digitman   (2003-06-25 14:48) [1]

сейчас будем гадать)... телепатически) ...что ты там в коде своем понаделал)


 
MTS   (2003-06-25 23:17) [2]

В настройках "сервера" указываю:
Port = 1122

В настройках клиента указываю:
Address = 127.0.0.1
Port = 1122
Host = localhost




unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText("test") ;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin

ServerSocket1.Active := TRUE ;
ClientSocket1.Active := TRUE ;

end;

procedure TForm1.ServerSocket1ClientWrite(Sender: TObject;
Socket: TCustomWinSocket);
begin
ShowMessage(ServerSocket1.Socket.ReceiveText) ;
end;

end.


 
Мазут Береговой   (2003-06-26 10:27) [3]

Не уверен, но кажется вот эта строчка "Host = localhost" в клиенте не нужна. И потом надо указать синхронизированный или нет. Они работают по разному.


 
MTS   (2003-06-26 12:18) [4]

Проблемма в том, что на счет синхронизации у меня все одинаково.
А с хостом все в порядке.
Что самое интересное беру приложение переношу на другую машину где стоит дельфи 5 .... там все нормально работает, а на машине где есть д6 или д7 она не пашет! Причем на какой бы то не было машине она не запускалась бы, где есть д6 или д7 она не идет, а под д5 работает!!!! Катастрофа, что мне делать???



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

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

Наверх




Память: 0.45 MB
Время: 0.009 c
14-44846
Минина Карина
2003-06-13 18:43
2003.07.14
Загрузка DFM-ки в run-time


1-44758
Zigs
2003-07-01 15:41
2003.07.14
Как изменить в QReport положение TQRDBTEXT на лету?


1-44690
Coder 911
2003-06-30 12:41
2003.07.14
Функция AddChild в TreeView.


14-44858
kaif
2003-06-26 02:20
2003.07.14
Сегодня настоящий праздник


3-44561
RDA
2003-06-19 19:59
2003.07.14
Использование DBLookUpCombobox





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский