Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

как преобразовать PChar в string

Forever © (2002-10-01 14:37:00)
Вот такой код:

var buf:Pchar; bufsize:integer; BEGIN GetMem(Buf,BufSize+1); socket.ReceiveBuf(Buf^,BufSize); memo1.lines.add(String(buf)); {ПРОГРАММА ВЫПОЛНИЛА НЕДОПУСТИМУЮ ОПЕРАЦИЮ} END;

Почему ошибка ? И как преобразовать PChar в string ?

Shrek (2002-10-02 21:07:00) [1]
дополнение
buf : array[1..200] of string[250];
Run : array[1..200] of string[250];

посмотри здесь, хорошый пример:
Program Files\Borland\Delphi6\Demos\Internet\Chat

Shrek (2002-10-02 21:02:00) [2]
да не надо здесь никакого переделывания строки.
в сокетах главное это правильно сщитать отправленое:

прим. прямо из работаещего кода:
отправка
ClientSocket1.Socket.SendBuf(Run, SizeOf(Run));
прийом
Socket.ReceiveBuf(buf, SizeOf(buf));

может быть реально ошыбка здесь: socket.ReceiveBuf(Buf^,BufSize);

Forever (2002-10-02 19:46:00) [3]
Пожалуйста, постарайтесь вникнуть в пример. Скажите что-нибудь

Forever (2002-10-02 00:26:00) [4]
Хотелось бы уточнить некоторые подробности.

Я вот хочу дописать в PChar какую-нибудь информацию.
P1 - куда хочу дописать, P2 - то, что хочу дописать.
Будем считать, что P1size - размер P1, P2size - размер P2.
То есть, было сделано GetMem(P1,P1size) и GetMem(P2,P2size);

GetMem(Dop,P1size); Dop:=StrCopy(Dop,P1); FreeMem(P1,P1size); GetMem(P1,P1size+P2size); P1size:=P1size+P2size; P1:=strcat(dop,P2); FreeMem(Dop);

То есть, пришлось прибегнуть к дополнительнйо переменной Dop типа PChar. Так как для прибавления к P1 чего-либо нужно увеличить размер этого самого P1, то я сначала делаю FreeMem, а потом GetMem уже с нужным количеством памяти, сохраняя прежний результат в dop.
Если что неправильно или кто знает способы получше - укажите, пожалуйста.

TTCustomDelphiMaster (2002-10-01 19:07:00) [5]
Посмотрите как реализовано это

function TCustomWinSocket.ReceiveText: string;
begin
SetLength(Result, ReceiveBuf(Pointer(nil)^, -1));
SetLength(Result, ReceiveBuf(Pointer(Result)^, Length(Result)));
end;

не помогло?

Forever (2002-10-01 18:46:00) [6]
Polevi, да. Тоже самое.

Polevi (2002-10-01 18:27:00) [7]
Buf[BufSize]:=#0 сделал ?

Forever (2002-10-01 18:08:00) [8]
MBo, я ее, конечно, инициализировал первой строчкой как у Polevi, просто не перенес сюда.

Игорь Шевченко (2002-10-01 18:00:00) [9]
В-третьих, обычно при таких проблемах очень хорошо помогает отладчик, а не форум.

han_malign (2002-10-01 17:58:00) [10]
вопервых String это тот же PChar, только преред блоком памяти на который указывает pointer(String) выделены еще 4 байта - длина("string[0]"), которые при прямом преобразовании s:=String(PChar)посредством " compiler magic(system.pas)" копируются из чужой области памяти (которая перед PChar),
во вторых единственный "недопустимый"(при преобразовании) символ в PChar это #0, поскольку он является терминирующим.

AlexT1000 (2002-10-01 17:50:00) [11]
PC : PChar
s :string;
S := StrPas(PC);

MBo (2002-10-01 17:34:00) [12]
В первой строке подпрограммы локальная переменная BufSize содержит мусор. Сначала инициализируй ее, как написал Polevi

Smithson (2002-10-01 17:34:00) [13]
приведение PChar -> String Delphi выполняет автоматически, при простом присваивании. Где-то ошибка в другом месте

Forever (2002-10-01 17:31:00) [14]
Polevi, все равно на

memo1.lines.add(buf)

программа выполняет недопустимую операцию.

MBo, BufSize равен 959

Видимо, глюк из-за того, что хранятся какие-то недопустимые символы в PChar"е. Потому что:

var s:string ... s:=String(Buf);

тоже вызывает ошибку.

Прям не знаю что делать. Может у кого есть какие соображения ?

Polevi (2002-10-01 14:48:00) [15]
BufSize:=socket.ReceiveLength;
GetMem(Buf,BufSize+1);
BufSize:=socket.ReceiveBuf(Buf^,BufSize);
Buf[BufSize]:=#0
memo1.lines.add(buf)

MBo (2002-10-01 14:39:00) [16]
ээээ......
в первой строке чему равен BufSize?????????

а третью можно и так (по желанию)
memo1.lines.add(buf);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »