Пересылка файла через DXPlay [D5, Win95/98]
Mr.Kirya © (2002-09-06 13:59: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....
Вроде бы все логично...не могу понять в чем ошибка:(
Slym (2002-09-10 07:02:00) [1]
msg2.TextCode.Create; <вот ошибка
так правильней
msg2.TextCode:=TMemoryStream.Create;
Наверх 
ЧАТ |
Орешник |
|
