Работа с памятью

← →
denkop © (2004-10-02 02:11) [0]

Возникла простая задача. Нужно в переменную типа Pointer поместить данные из пременной типа String.
Делаю так:

var
Buf:pointer;
St:string;
begin
St:="SendingFile";
GetMem(Buf,Length(St));
try
Move(St, Buf^, Length(St));
ShowMessage(IntToStr(SizeOf(Buf))); //здесь 4 вместо 11
ShowMessage(String(Buf^)); // здесь всё нормально
UDPClient.SendBuffer(Buf^, Length(St));
finally
FreeMem(Buf);
end;
end;

Но на сервер моя строка не доходит...

А вот этот кусок работает

var
Buf:pointer;
St:integer;
begin
St:=1111;
GetMem(Buf,SizeOf(St));
try
Move(St, Buf^, SizeOf(St));
ShowMessage(IntToStr(SizeOf(Buf))); // здесь всё нормально=4
ShowMessage(IntToStr(Integer(Buf^))); // здесь тоже
UDPClient.SendBuffer(Buf^, SizeOf(St));
finally
FreeMem(Buf);
end;
end;

т.е. проблема именно в помещении строки в буфер.
Подскажите пожалста, что я делаю не так.

← →
panov © (2004-10-02 02:14) [1]

var s: String; p: Pointer; begin ... Move(s[1],p^,Counter);

← →
Defunct © (2004-10-02 02:20) [2]

почему бы не сделать так?

UDPClient.SendBuffer(S[1], SizeOf(St));

для чего там применять Pointer?

← →
denkop © (2004-10-02 03:24) [3]

Defunct >> т.к. следом за строкой цепляются двоичные данные

panov >> спасибо, работает. а можно немного пояснений, почему s[1] а не просто s?? и почему SizeOf(Buf) по прежнему возвращает 4??

← →
Германн © (2004-10-02 04:20) [4]

SizeOf(Buf) - возвращает размер переменной Buf. А она - pointer, а Pointer на сей момент - 4 байта. А на что он указывает на сей момент - никого не волнует при вызове SizeOf()!

s[1] - указывает на первый байт области памяти, где записана сама строка. Т.е. на первый символ самой строки.

← →
Defunct © (2004-10-02 04:30) [5]

> т.к. следом за строкой цепляются двоичные данные

куда они цепляются?
в коде ничего никуда не цеплялось.

и никто не отменял SetLength(S, новая длинна).

imho для пересылки файлов лучше использовать TCP сокет и SendStream.

здесь ошибка
> UDPClient.SendBuffer(S[1], SizeOf(St));
UDPClient.SendBuffer(S[1], Length(St));

> s[1] а не просто s??
потому что S - указатель на строку.
S[1] - первый символ строки.

> почему SizeOf(Buf)

Buf : Pointer,
SizeOf(Pointer) = 4 всегда.

← →
Германн © (2004-10-02 04:50) [6]

s[1] - указатель на первый байт области памяти, где записана сама строка, s - указатель на область памяти, где хранится "служебная" информация о строке. Кроме того случая, когда строка объявлена как string[...] или когда выключена опция {$H-}

← →
DHDD (2004-10-02 06:38) [7]

Можно попробовать
ShowMessage(String(Buf^)); // здесь всё нормально, =>
UDPClient.SendBuffer(String(Buf^), Length(St));
Если это будет работать, то ты сразу поймёшь

← →
TUser © (2004-10-02 10:15) [8]

Проще - PChar/PAnsiChar

← →
denkop © (2004-10-02 11:31) [9]

Германн >>
а если строка объявлена как string[...], тогда как

Defunct >> правильно, в коде этого ещё нет, но будет. если я отправлю как строку или с помощью udp.send(), а на сервере прочитаю аналогичным образом, а сервер ещё не знает, передаю я данные или команду, след-но данные могут исковеркаться. Жто всё для того, что бы незаморачиваться на сервере со всякими флагами (идёт передача или это только команда). Короче вот что получилось:

procedure TUDPMainForm.Button1Click(Sender: TObject);
var
ReceivedString: String;
FS1, FS2:TFileStream;
BytesRead, StartBit:integer;
AppDir, StartChr, St: String;
Buf:pointer;

const
BufSize=1024*8;
begin
StartChr:="SendFile";
AppDir:=ExtractFilePath(Application.ExeName);
FS1:=TFileStream.Create(AppDir+"1.exe", fmOpenRead);
GetMem(Buf,BufSize);
try
St:=StartChr+"=222.exe";
Move(St[1],Buf^,Length(St));
UDPClient.SendBuffer(Buf^, Length(St));
repeat
BytesRead:=FS1.Read(Buf^,BufSize);
UDPClient.SendBuffer(Buf^,BytesRead);
ReceivedString := UDPClient.ReceiveString();
if ReceivedString = "" then
begin ShowMessage("No answer "+IntToStr(BytesRead)); Exit; end;
Application.ProcessMessages;
until BytesRead=0;
finally
FS1.Free;
FS2.Free;
FreeMem(Buf);
end;
ShowMessage("Complete");
end;

procedure TUDPMainForm.UDPServerUDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
var
DataStringStream: TStringStream;
s: String;

StreamBuf:TMemoryStream;
FS:TFileStream;
Buf:pointer;
AppDir, StartChr, St: String;
StartBit:integer;
begin
StartChr:="SendFile";

AppDir:=ExtractFilePath(Application.ExeName);

StreamBuf:=TMemoryStream.Create;
GetMem(Buf, AData.Size);
try
StreamBuf.CopyFrom(AData, AData.Size);
StreamBuf.SaveToFile(AppDir+"1.str");
StreamBuf.Seek(0,soFromBeginning);
StreamBuf.Read(Buf^, AData.Size);
SetLength(St,AData.Size);
Move(Buf^,St[1],Length(St));
if Copy(St,1,Length(StartChr))=StartChr then
begin
RcvFileName:=Copy(St,Pos("=",St)+1,Length(St)-Pos("=",St));
FS:=TFileStream.Create(AppDir+RcvFileName,fmCreate);
exit;
end
else FS:=TFileStream.Create(AppDir+RcvFileName,fmOpenReadWrite); //вот для этого и я вся эта заморочка. Открываю либо fmCreate либо fmOpenReadWrite для дозаписи, без всяких глобальных переменных и пр.
FS.Seek(0,soFromEnd);
FS.Write(Buf^,AData.Size);
s:="#";
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
finally
StreamBuf.Free;
FS.Free;
FreeMem(Buf);
end;

end;

Немного внесу ясности. Это маленький UDP чат и он уже работает и довольно успешно. Хочу припаять функцию передачи файлов. Всегда было интересно, что у начальника на компе :))

2 denkop © (02.10.04 11:31) [9]

Воскресенье. Голова уже работает в режиме "Выходных". Так что, если, то извини.

>Германн >>
>а если строка объявлена как string[...], тогда как

Если строка объявлена как string[...], то и St St[1]

denkop © (02.10.04 11:37) [10]

> Хочу припаять функцию передачи файлов. Всегда было
> интересно, что у начальника на компе :))

Гы, это уже функции "трояна" - имхо нет гарантии, что начальник окажется так глуп, как ты предполагаешь .. - см [12]

Работа с памятью Найти похожие ветки