написала программу в форме, но она не работает((( выдает ошибки

@kleopatra · Регистрация: 10.12.2010

Студворк — интернет-сервис помощи студентам

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
 unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ScktComp;
 
type
  TForm1 = class(TForm)
    ClientSocket1: TClientSocket;
    ServerSocket1: TServerSocket;
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button3: TButton;
    Edit3: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
    procedure Button3Click(Sender: TObject);
 
  private
 
  public
   end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Open();
if (ServerSocket1.Active=true) then
 begin
   Button1.Caption:='Сервер запущен';
   Button3.Caption:='Откл';
   ClientSocket1.Open();
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
ClientSocket1.Socket.SendText(Edit1.Text+'№');
ClientSocket1.Socket.SendText(Edit2.Text+'№');
end;
 
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Close();
 
  if (ClientSocket1.Active=false) then
 begin
   Button3.Caption:='Сервер остановлен';
   Button1.Caption:='Подключиться';
   ServerSocket1.Close();
    end;
end;
 
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Label1.Caption:=Socket.ReceiveText;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClientSocket1.Close();
ServerSocket1.Close();
end;
 procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,a,b:integer;
begin
edit2.Text:='';
s:=edit1.Text; ///Исходный массив
a:=StrToInt(edit3.text); ///Здесь число А
for i:=1 to length(s) do begin
if s[i]=' ' then edit2.Text:=edit2.Text+' '
else begin
if (StrToInt(s[i]) mod 2=0) then edit2.Text:=edit2.Text+IntToStr(StrToInt(s[i])+a)
else edit2.Text:=edit2.Text+s[i]
end;
end;
end;
 end.

задание звучит так:
Клиент передает массив и число А, сервер к четным числам массива прибавляет число А

помогите пожалуйста, а то сегодня вечером уже надо сдать, а я все никак ее написать не могу(((((

Добавлено через 47 минут
ау!! люди!! ну помогите пожалуйста!!!!!

Добавлено через 43 минуты

@MsGuns · 02.06.2011, 14:29

У вас 2 раза

Delphi
1
TForm1.Button1Click(Sender: TObject);

это типа так надо ?

@kleopatra · 02.06.2011, 15:07 **[ТС]**

нет, просто пробывала сдалать подругому, видимо удалить забыла.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure TForm1.Button1Click(Sender: TObject);
begin
ServerSocket1.Open();
if (ServerSocket1.Active=true) then
 begin
   Button1.Caption:='Сервер запущен';
   Button3.Caption:='Откл';
   ClientSocket1.Open();
    end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ClientSocket1.Close();
 
  if (ClientSocket1.Active=false) then
 begin
   Button3.Caption:='Сервер остановлен';
   Button1.Caption:='Подключиться';
   ServerSocket1.Close();
    end;
end;
 
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
begin
Label1.Caption:=Socket.ReceiveText;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ClientSocket1.Close();
ServerSocket1.Close();
end;
 procedure TForm1.Button2Click(Sender: TObject);
var s:string;
i,a,b:integer;
begin
edit2.Text:='';
s:=edit1.Text; ///Исходный массив
a:=StrToInt(edit3.text); ///Здесь число А
for i:=1 to length(s) do begin
if s[i]=' ' then edit2.Text:=edit2.Text+' '
else begin
if (StrToInt(s[i]) mod 2=0) then edit2.Text:=edit2.Text+IntToStr(StrToInt(s[i])+a)
else edit2.Text:=edit2.Text+s[i]
end;

Добавлено через 48 секунд
кажется так было в начале

@MsGuns · 02.06.2011, 15:30

Ну и где там у Вас "сервер к четным числам массива прибавляет число А" ?
Вы о сокетах что-то читали или добросовестно скопипастили у друга / подруги кусок текста и теперь удивляетесь, что пришитая голова так и не оживила птичку ?

@kleopatra · 02.06.2011, 15:38 **[ТС]**

ну что-то вроде этого.
я нашла нечто похожее в нете)))
просто с формами я столкнулась впервые и теперь сижу пытаюсь что-нибудь сварганить

@MsGuns · 02.06.2011, 15:51

тяжко плыть в серной кислоте без ласт и трубки..
тогда просто в гугль и поиск на тему "работа с портами в Delphi"

Сам, к сожалению, не работал с сокетами, не было необходимости, поэтому помочь не могу скорее всего. А откликнулся потому что не могу видеть как плачут дети и молоденькие девушки

Добавлено через 2 минуты
Кстати, вот заглянул в справку борланда по TServerSocket - все изложено предельно просто и доступно. Не хотите попробовать ?

@kleopatra · 02.06.2011, 16:02 **[ТС]**

хочу!!!
только "борланда" у меня нету((
сможешь скинуть

@Avazart · 02.06.2011, 16:12

А какие именно ошибки выскакивают?

И чет я не видел там в программе указание на хост и порт с которым идет работа.

@kleopatra · 02.06.2011, 16:34 **[ТС]**

я когда на форму добавляла
ServerSocket1 и ClientSocket1 там и прописывала порт и адрес

Добавлено через 5 минут
например ругается на эту строку

Delphi
1
var s:string

@MsGuns · 02.06.2011, 17:30

Delphi
1
только "борланда" у меня нету((

Точна ? А откуда тогда "я на форму добавляла" ? Ветерком навеяло ?

Лан, я седня добрый и хороших девчат завсегда жалею, поэтому скажу по оооочень большому секрету: слово "борланд" у настоящих чуваков и чувих означает то же самое, что и "делфи"

Добавлено через 1 минуту
Ладно уж..
Если навести курсор на любую буковку например слова TServerSocket и нажать F1, то о чудо ! откроется "справка борланда"

@Avazart · 02.06.2011, 22:02

Что именно пишит в этой строке?
Какая ошибка?
(там внизу редактора кода, типа [DCC Error] Unit1.pas(27): E???? ????)

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	02.06.2011, 15:30
	Ну и где там у Вас "сервер к четным числам массива прибавляет число А" ? Вы о сокетах что-то читали или добросовестно скопипастили у друга / подруги кусок текста и теперь удивляетесь, что пришитая голова так и не оживила птичку ? 0

@kleopatra 2 / 2 / 1 Регистрация: 10.12.2010 Сообщений: 43
	02.06.2011, 15:38 [ТС]
	ну что-то вроде этого. я нашла нечто похожее в нете))) просто с формами я столкнулась впервые и теперь сижу пытаюсь что-нибудь сварганить 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	02.06.2011, 15:51
	тяжко плыть в серной кислоте без ласт и трубки.. тогда просто в гугль и поиск на тему "работа с портами в Delphi" Сам, к сожалению, не работал с сокетами, не было необходимости, поэтому помочь не могу скорее всего. А откликнулся потому что не могу видеть как плачут дети и молоденькие девушки Добавлено через 2 минуты Кстати, вот заглянул в справку борланда по TServerSocket - все изложено предельно просто и доступно. Не хотите попробовать ? 0

@kleopatra 2 / 2 / 1 Регистрация: 10.12.2010 Сообщений: 43
	02.06.2011, 16:02 [ТС]
	хочу!!! только "борланда" у меня нету(( сможешь скинуть 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.06.2011, 16:12
	А какие именно ошибки выскакивают? И чет я не видел там в программе указание на хост и порт с которым идет работа. 0

@Avazart 8488 / 6155 / 615 Регистрация: 10.12.2010 Сообщений: 28,683 Записей в блоге: 30
	02.06.2011, 22:02
	Что именно пишит в этой строке? Какая ошибка? (там внизу редактора кода, типа [DCC Error] Unit1.pas(27): E???? ????) 0