Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2004.10.17;
Скачать: [xml.tar.bz2];

Вниз

PByteArray   Найти похожие ветки 

 
R2D2   (2004-08-05 16:33) [0]

Как переслать на др. компьютер (проге-клиенту) массив байт (PByteArray).


 
Rouse_ ©   (2004-08-05 16:34) [1]

Загоняй в Stream и пересылай...


 
R2D2   (2004-08-05 17:43) [2]

Загоняю! Выглядит так (в кратце):

var
p: PByteArray;
...
begin
...
p := bitmap.ScanLine[y];
MyStream := TMemoryStream.Create;
MyStream.WriteBuffer(p,SIZEOF(p)); //загоняю
MyStream.Position:=0;
NMUDP1.SendStream(MyStream);       //отсылаю
...

Как получить этот массив на др. компе?
begin
...    
MyStream := TMemoryStream.Create;    
NMUDP1.ReadStream(MyStream);       //принимаю
MyStream.Position:=0;
MyStream.ReadBuffer(p,NumberBytes);
...
Так выдает ошибку.


 
Kurtevich   (2004-08-05 17:47) [3]

var p: pByteArray;
 len : integer;
 s: SOCKET;

winsock2.send(s,p^[0],len,0);


 
Goorus   (2004-08-06 13:25) [4]

MyStream.WriteBuffer(p,SIZEOF(p));
В p у тебя хранится только ссылка на массив, это величина вроде Integer, и занимает она 4 байта. Делай, как говорит Kurtevich.


 
Digitman ©   (2004-08-06 13:46) [5]

var
p: PByteArray;
...
begin
...
p := bitmap.ScanLine[y];
MyStream := TMemoryStream.Create;
MyStream.WriteBuffer(p^,фактический_размер_буфера_!!!!!);
MyStream.Position:=0;
NMUDP1.SendStream(MyStream);      
...

MyStream := TMemoryStream.Create;    
NMUDP1.ReadStream(MyStream);      
MyStream.Position:=0;
GetMem(p, MyStream.Size);
MyStream.ReadBuffer(p^,MyStream.Size);


> выдает ошибку


кр.всего прочего ошибка (причем грубая, связанная с особенностями UDP и с "кривостью" NMUDP, явно не учитывающего эти особенности) обязательно возникнет, если размер передаваемого потока превышает макс.доп.размер UDP-сообщения


 
R2D2   (2004-08-08 16:16) [6]

Переделал с использованием ClientSocket и ServerSocket. Выглядит так:

var
p: PByteArray;
...
begin
...
p := bitmap.ScanLine[y];
MyStream := TMemoryStream.Create;
MyStream.WriteBuffer(p,SIZEOF(p)); //загоняю
MyStream.Position:=0;
Size := ServerSocket1.Socket.Connections[0].SendBuf(ppp,MyStream.Size);       //отсылаю
...

На другом компе получаю:
begin
...  
oo := bitmap.ScanLine[y];
...    
Socket.ReceiveBuf(ooo,Sizeof(oo));       //принимаю
for x := 0 to b.Width * 3 - 1 do
oo^[x] := round(ooo^[x]);               //возникает ошибка
...

Причем ошибка возникает только тогда, когда "работают" 2 программы (клиент и сервер). А если весь код написан в ондой проге (она клиент и сервер), то все ОК, работает как надо! В чем может быть проблема?


 
R2D2   (2004-08-08 16:55) [7]

Предыдущий код совершенно не такой! А вот такой:
var
pic1, pic2: PByteArray;
...
begin
...
for y := 0 to bitmap.Height - 1 do begin
 pic1:= bitmap.ScanLine[y];
 Size := ServerSocket1.Socket.Connections[0].SendBuf(pic1,SIZEOF(pic1));    //отсылаю
end;

На другом компе получаю:
begin
...  
oo := bitmap.ScanLine[y];
...    
Socket.ReceiveBuf(ooo,Sizeof(oo));       //принимаю
for x := 0 to b.Width * 3 - 1 do
oo^[x] := round(ooo^[x]);               //возникает ошибка
...



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

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

Наверх




Память: 0.46 MB
Время: 0.038 c
9-1087222996
Uncle Archi
2004-06-14 18:23
2004.10.17
OpenGL


6-1092126243
nok6600
2004-08-10 12:24
2004.10.17
вопросы по winsock


1-1096363145
msguns
2004-09-28 13:19
2004.10.17
Сообщение от одной форме другой


14-1096277529
panov
2004-09-27 13:32
2004.10.17
Безопасность ICQ.


3-1095419269
Солер
2004-09-17 15:07
2004.10.17
Данные из DBGrid в Word





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский