Mem.ReadBuffer(buffer^,$ff) читает до первого #$00. Как обойти?

← →
Cosinus © (2004-02-19 18:35) [0]

Или может есть что то альтернативное?

← →
MBo © (2004-02-19 18:40) [1]

Что такое Mem, что такое buffer, и как выяснилось, что "читает до первого #$00"?
Код?

← →
Cosinus © (2004-02-19 18:47) [2]

var t:byte; Buffer: PChar; RS : TResourceStream; Mem:TMemoryStream; begin .... RS := TResourceStream.Create(HInstance, "DAT", "RT_RCDATA"); Mem:= TMemoryStream.Create; Mem.LoadFromStream(RS); GetMem(Buffer, $ff); For Counter:=0 to 93 do try Mem.ReadBuffer(buffer^,$ff); finally end; FreeMem(Buffer); Mem.Free; RS.Free; ..... end

← →
Cosinus © (2004-02-19 18:50) [3]

Я знаю, что лежит в DAT. После Mem.ReadBuffer(buffer^,$ff); я воткнул Showmessage, который показывает Length(buffer), поэтому я знаю что он доходит только до первого символа, с кодом 0

← →
MBo © (2004-02-19 18:52) [4]

For Counter:=0 to 93 do
try
Mem.ReadBuffer(buffer^,$ff);
finally
end;

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

так где видно, что читается не 255 байт, а до нулевого символа?
может, все же читается, но не отображается при попытке куда-то вывести?

← →
MBo © (2004-02-19 18:53) [5]

>я воткнул
Код ;)

← →
Владислав © (2004-02-19 18:54) [6]

Ха! ShowMessage! Это круто!

Есть такое понятие, как строки, завершающиеся нулем.

← →
Cosinus © (2004-02-19 19:00) [7]

Даю полный код
var Counter:byte; Buffer: PChar; RS : TResourceStream; Mem:TMemoryStream; DatStr:String begin .... Richedit1.Lines.Add("Loading ..."); RS := TResourceStream.Create(HInstance, "DAT", "RT_RCDATA"); Mem:= TMemoryStream.Create; Mem.LoadFromStream(RS); Richedit1.Lines.Add(InttoStr(Mem.Size)); GetMem(Buffer, $ff); for Counter:=0 to 93 do try Mem.ReadBuffer(buffer^,$ff); Gauge.AddProgress(1); DatStr:=#$01+#$00+chr(Counter)+#$00+#$01+#$00+buffer; PortInit(WrCommCrc(DatStr,true),PortBd); //Это моя процедура, которая пишет данные в COMport If not ReadAnswer(4,400) then //Ждем ответ от девайса begin Log(clRed,"Error with errorcode [1] - timeout"); ShowMessage("String length="+IntToStr(Length(DatStr))); exit; end; finally end; Gauge.Progress:=0; FreeMem(Buffer); Mem.Free; RS.Free; Richedit1.Lines.Add("Ok"); ..... end;

← →
Anatoly Podgoretsky © (2004-02-19 19:05) [8]

Length(buffer), для подобных буферов не надо использовать.

← →
Cosinus © (2004-02-19 19:09) [9]

Без разницы, этот ShowMessage я от дурости написал, я же все равно вижу, что идет в порт. Доходит до первого символа с 0.

← →
Владислав © (2004-02-19 19:10) [10]

> Anatoly Podgoretsky © (19.02.04 19:05) [8]

Сие утверждение из чего следует? Просветите пожалуйста.

← →
Cosinus © (2004-02-19 19:26) [11]

Так в чем у меня проблемма то? В хелпе на эту тему я ничего не нашел.

← →
Serginio666 (2004-02-19 19:28) [12]

Отображение стринга, pchar заканчивается при обноружении #0
так как строки нультерминированы.

← →
Anatoly Podgoretsky © (2004-02-19 19:32) [13]

Владислав © (19.02.04 19:10) [10]
Документировано в справке, копирование данных в строку произойдет до первого символа нуля, поэтому применять это бессмысленно.

← →
Serginio666 (2004-02-19 19:33) [14]

Не совсем так. Копирование через Move пройдет как надо, а вот конкатенция строк до первого #0.

Применять методы копирования для PChar строк

> Anatoly Podgoretsky © (19.02.04 19:32) [13]

Я ступил, когда вопрос задавал. (перепутал Ваш код и не ваш, сорри :) Сначала посмотрел на это "Length(DatStr)", а потом уже спросил). Так что Вы, естесственно, правы на все сто.

← →
Serginio666 (2004-02-19 19:42) [18]

Если не хочешь замарачиваться с копированием используй наследников TStream он как раз для таких задач в самый раз.

> Mem.ReadBuffer(buffer^,$ff);

Тут совершенно не при чем.
Все дело в этом:

> DatStr:=#$01+#$00+chr(Counter)+#$00+#$01+#$00+ buffer;

Где DatStr - это string, а buffer - pchar;

Здесь вы заставляете преоразовывать pchar к string. Что такое pchar и что такое для pchar #0 - думаю объяснять не надо.

Mem.ReadBuffer(buffer^,$ff) читает до первого #$00. Как обойти? Найти похожие ветки