Форум: "Сети";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Вниз

Пересылка файла через DXPlay   Найти похожие ветки 

← →
Mr.Kirya   (2002-09-06 13:59) [0]

Нужно переслать по сети фаил.Для пересылки используется компонент dxPlay.
Я пытаюсь реализовать это следующим образом:


const
DXFILE_MESSAGE=2;

type
TDXFileMessage = record
dwType: DWORD;
TextCode:TMemoryStream;
end;

procedure TMainForm.DXPlay1AddPlayer(Sender: TObject; Player: TDXPlayPlayer);
var
Msg2: ^TDXfileMESSAGE;
msgSize2: Integer;

begin

msgSize2:= SizeOf( TDXFileMESSAGE );
GetMem(Msg2, MsgSize2);

try
msg2.dwType := DXFile_MESSAGE;
msg2.TextCode.Create;
msg2.TextCode.LoadFromFile("images/user.bmp");
DXPlay1.SendMessage(DPID_ALLPLAYERS,msg2,msgsize2);

finally
FreeMem(Msg2);
msg2.TextCode.Free;
end;

end;


procedure TMainForm.DXPlay1Message(Sender: TObject; Player: TDXPlayPlayer; Data: Pointer;
DataSize: Integer);
begin
TDXFileMessage( Data^ ).textcode.SaveToFile("images/"+inttostr(Player.id)+".bmp");
end;


После запуска возникает ошибка - access violation at....
Вроде бы все логично...не могу понять в чем ошибка:(

---

← →
Slym   (2002-09-10 07:02) [1]

msg2.TextCode.Create; <вот ошибка
так правильней
msg2.TextCode:=TMemoryStream.Create;

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c