Сокеты в дельфи

[mrAndersen]

Если кто занимался, есть некоторые вопросы по сокетам в дельфи. Есть компонент TServerSocket, есть некая другая прога, на другом компе, которая шлет текст в определнный tcp порт. НО почему-то если юзать Server.Socket.RecivedText я получаю какую-то хрень вместо текста, если юзать ReciveBuf то получается нужный мне текст, НО теряется первый символ, это мне кажется вызвано тем что переменную буфера я прописываю как стринг, а в стринге есть нулевой символ, где хранится длина самой стринги, может поэтому, а прога пишет с нуля, или вообще побитового. Прога - стороння, я доступа не имею к ней, и незнаю на чем она написана. В следствие этого несколько вопросов.

1) Может ли быть, что каким-то образом поменяв кодировку, входного текста на сокет(бред конечно но вдруг), я смогу прочитать его из RecivedText, что будет лучше.

2) Как сделать чтобы в стрингу ReciveBuf'а записывался весь текст с начала, а не без первого символа, он важен, это если с ReciveText ом не выйдет.

3) Как очистить сам буфер, при попытки очистки переменной из ReciveBuf() ничего не происходит, следующие данные "+" к тому что уже было, пока буфер не переполнится...

p.s. В американском гугле у всех всё супер принимается в рисерв текст, инфы нет вообще, так что я уже спрашиваю тут...

[Пепел Феникса]

1)если принимаете в стринг то RecieveBuf(s[1],Length(s));
что такое s думаю понятно.
3)что?
какое переполнение?
вы код покажите тогда.
если принимать как я сказал то все норм будет, никакого переполнения.
получили обработали и тд.

[mrAndersen]

Так вообще ничего не получается, как я могу принять в один символ, всё строку?

Тупо ничего не присылается

обычным методом ReceiveBuf(r, 250); всё приходит, но без первого символа...

[Пепел Феникса]

Так вообще ничего не получается, как я могу принять в один символ, всё строку?

с указателями плохо знакомы

Тупо ничего не присылается

вы пробывали?(длину строке задать не забудьте.

RecieveBuf(s[1],Length(s)*SizeOf(Char));//так надежнее.

[mrAndersen]

с указателями плохо знакомы

Что есть, то есть

вы пробывали?(длину строке задать не забудьте.

RecieveBuf(s[1],Length(s)*SizeOf(Char));//так надежнее.

Тоже самое, типо циклит...

type
 BufR: array [0..300] of Char;

Socket.ReceiveBuf(bufr,300);
 r:=Copy(Bufr,1,300);

Так даже пробовал, всеравно вопросики приходят. Я уже замучался, нигде ничего не знают, как будто текст никто не способен принять нормально....

[Пепел Феникса]

используйте ANSIString.
(и отправляйте и посылайте через этот тип)
вообще стоит показать как отправляете.

[mrAndersen]

Какая разница как я отправляю, что бы я не отправил ответ будет строго по шаблону, это обычная терминальная программа на другом сервере, которая шлет комманды в ответ, любой из снифферов или утилит для работы с сетью без проблем всё понимает, а я уже неделю не могу понять почему я не могу написать тоже самое, я уже всё переброовал.

Если принимать а ansistring то вообще ниче не получится, тоже самое если принимать в стринг без фиксированного кол-во знаков...

[Пепел Феникса]

потому что задавайте длину строке, а потом уже считывайте в нее(по типу как я писал)
а то в 0 пытаемся чтото записать.

[mrAndersen]

s:string[100] - вот длина, то я так пробовал, всеравно не работает.

Работает по прежнему только 2умя способами.

1) РисервТекст - приходят вопросики, полный текст

2) РесирвБуф в в переменную типа s:string[100] - приходит без первого символа, и не полный

Все остальные враианты, которые были предложены, либо не компилится даже, либо циклит(что странно)..

[Пепел Феникса]

ну а если так

var s:ANSIstring;
begin
 SetLength(s,Socket.RecieveLength);
 Socket.RecieveBuf(s[1],Length(s));
 //теперь в s наш текст.
end;

соответственно отправлять лучше так:
var s:ANSIstring;

begin
 s:='какой то текст на отправку';
 Socket.SendBuf(s[1],Length(s));
end;

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

ЗЫ: эта Д2009 с её новым string это ппц(старый string это теперь ANSIString)