Передача массива строк через сокет

03.05.2012, 15:24. **Показов** 2906. **Ответов** 1

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

Всем привет. У меня возникла проблема. Передаю массив строк с клиента на сервер, но в результате выдается ошибка

"Access at address 40006880 in module 'rtl60.bpl'. Read of address 014AE3AC'.

Передаю массив:

C++
1
2
3
4
5
6
7
String buf[8];
const int n = 8;
 
for ( int i=0;  i <n; i++ )
buf [ i ] = ((TEdit*)FindComponent("Edit"+String(i) ))->Text;
 
ClientSocket1->Socket->SendBuf(buf, sizeof(String)*n );

Принимаю:

C++
1
2
3
4
  const int n=8;
  String buf[n];
  Socket->ReceiveBuf ( buf, sizeof(String)*n );
  for (int i=0; i<8; i++)

На клиенте никакой ошибки не выдается, ошибка на сервере. Я так понимаю проблема с определением размера массива, т.е. sizeof(String)*n. Пробовал вместо String использовать char, тогда никаких ошибок нет, но на сервер поступают непонятные символы. Целочисленные массивы передаются-принимаются без проблем. Помогите пожалуйста решить вопрос.

@Maluda · 03.05.2012, 23:09

Mantezuma, лучше использовать TStringList

C++
1
2
3
4
5
6
7
8
9
10
// передача
#include <memory>
std::auto_ptr<TStringList>AList(new TStringList);
for (int i=0;i<this->ComponentCount;i++) {
    TEdit *AEdit = dynamic_cast<TEdit*>(this->Components[i]);
    if (AEdit) {
        AList->Add(AEdit->Name);
    }
}
ClientSocket1->Socket->SendBuf(AList->Text.c_str(), AList->Text.Length() + 1);

C++
1
2
3
4
5
6
7
8
9
10
//приём
const int iBufSize = ClientSocket1->Socket->ReceiveLength();
char *chBuf = new char[iBufSize + 1];
ClientSocket1->Socket->ReceiveBuf(Buf, iBufSize);
std::auto_ptr<TStringList>AList(new TStringList);
AList->Text = chBuf;
delete []chBuf;
for (int i=0;i<AList->Count;i++) {
    // AList->Strings[i]  - работаем с текущей строкой
}

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .