| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

DXPlay [D5, Win95/98]

Mr.Kirya ©   (2002-09-04 23:44:00) 

Нужно переслать по сети фаил.Для пересылки используется компонент 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....
Вроде бы все логично...не могу понять в чем ошибка:(

---

Mr.Kirya   (2002-09-05 18:03:00) [1]

Люди!помогите плиз!!!Ну очень надо...

---

Наверх