Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.12.2010, 15:43   #1
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
Восклицание Invalid numeric format

Собственно, ошибка в названии темы, не могу понять откуда берётся, т.к. использую только сокеты.
Код:
unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    ListBox1: TListBox;
    ListBox2: TListBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Memo1: TMemo;
    CheckBox1: TCheckBox;
    ServerSocket1: TServerSocket;
    procedure MyConnect(Sender: TObject; Socket: TCustomWinSocket);
    procedure MyRead(Sender: TObject; Socket: TCustomWinSocket);
    procedure CheckBox1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure ServerSocket1ClientConnect(Sender: TObject;
      Socket: TCustomWinSocket);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  MyAccount:User;
  isServer:Boolean;
  CS:TClientSocket;

implementation

{$R *.dfm}

uses Unit1,Unit2;

procedure TForm3.MyConnect(Sender:TObject; Socket:TCustomWinSocket);
begin
      ServerSocket1.Socket.SendText(MyAccount.NickName);
end;

procedure TForm3.MyRead(Sender: TObject;Socket: TCustomWinSocket);
begin
      ListBox1.AddItem(Socket.ReceiveText,nil);
end;

procedure TForm3.CheckBox1Click(Sender: TObject);
begin
      CheckBox1.Checked:=not CheckBox1.Checked;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
      Application.Terminate;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
      Memo1.Clear;
end;

procedure TForm3.FormActivate(Sender: TObject);
begin
      If not isServer Then
      Begin
            CS:=TClientSocket.Create(Form3);
            CS.OnConnect:=MyConnect;
            CS.OnRead:=MyRead;
            CS.Address:='94.31.253.109';
            CS.Port:=1025;
            CS.Open;
            CS.Active:=True;
     End
     Else
          ServerSocket1.Active:=True;
end;

procedure TForm3.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
      ListBox2.AddItem(Socket.ReceiveText,nil);
end;

end.
Если понадобятся Unit1 и Unit2, скажите.
_-Re@l-_ вне форума Ответить с цитированием
Старый 22.12.2010, 15:44   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а отладка не выдает места возникновения ошибки?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 22.12.2010, 15:47   #3
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Действительно, забыл про неё, просто запускал екзешник.
Вообще, странно что ошибку выдаёт в строке чтения возраста пользователя...
_-Re@l-_ вне форума Ответить с цитированием
Старый 22.12.2010, 15:49   #4
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

а где эта строка?
проверь переменные, может там чтото не то.
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка Old format or invalid type library. doober Общие вопросы .NET 0 09.09.2010 16:56
clipboard-invalid format Abricosko Помощь студентам 4 05.06.2010 14:22
Format '%1 ' invalid or incompatible with argument ImmortalAlexSan Общие вопросы Delphi 19 30.03.2010 21:15
Varchar и numeric АлёнаP SQL, базы данных 2 15.01.2010 08:58
Ошибка EInOutError: Invalid numeric input Croesus Общие вопросы Delphi 1 15.03.2009 08:36