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

Вниз

Опять про TServerSocket и TClientSocket...   Найти похожие ветки 

 
KPV-10k   (2002-05-24 21:18) [0]

Уважаемые мастера! Пожалуйста помогите с пересылкой картинки через TServerSocket и TClientSocket, посмотрел пример в FAQ, но там нет подсказки как сделать пересылку по условию... Написал аналогию, но этот код почему-то не работает. Пожалуйста помогите исправить ошибку или подкиньте исходник аналогичных действий... (Надо наряду с текстовыми, передавать и бинарные данные).

type
TForm1 = class(TForm)
...
private
Reciving: boolean;
DataSize: integer;
Data: TMemoryStream;
end;

Const
SEND_VERSION =1;
SEND_BMP =2;
...

procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
Var
S, ST : AnsiString;
TSLA : TStringList;
BEGIN
S:=Socket.ReceiveText;

if not Reciving then BeGiN
SetLength(ST, StrLen(PChar(S))+1);
StrLCopy(@ST[1], PChar(S), Length(ST)-1);
TSLA:=Reception(ST); //Функция разбивает на команды строку ST
Delete(S, 1, Length(ST));

CASE StrToInt(TSLA.Strings[0]) of

SEND_VERSION : InfoMemo.Lines.Add(TSLA.Strings[1]);

SEND_BMP : begin
DataSize:=XStrToInt(TSLA.Strings[1]);
try
Data:=TMemoryStream.Create;
Data.Clear;
Reciving:=True;
Data.Write(s[1], length(S));
if Data.Size = DataSize then begin
Data.Position:= 0;
VisualControlForm.ImageVC.Picture.Bitmap.LoadFromStream(Data);
Socket.Close;
end;
finally
Reciving:=False;
Data.Free;
end;
end;
end;//CASE
TSLA.Free;
EnD; //if
END;


 
xyz   (2002-05-31 00:22) [1]

У меня такая же проблема.
Скачал исходник - в пределах локальной проги работает, а вот когда разные - выдает ошибку (что-то с ассинхрониз...)
Помогите человеку и мне тоже.


 
Song   (2002-05-31 09:27) [2]

А в чём ошибка конкретно? И где именно?


 
daos   (2002-05-31 16:22) [3]

А так попробуйте-у меня любое передает и принимает
procedure TFTestKlient.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
s:string;
com:string;
ch:array[0..9999] of char;
ms:TMemoryStream;
nr:longInt;
begin
ms:=TMemoryStream.Create;
//try
while true do begin
nr:=Socket.ReceiveBuf(ch,sizeof(ch));
if nr<=0 then break
else ms.Write(ch,nr);
sleep(200);
end;

ms.Position:=0;
//а здесь достаете ихз потока памяти
// и т.п.

Передавать тоже - сначала все сохранить в поток, а затем sendstream



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

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

Наверх




Память: 0.45 MB
Время: 0.006 c
4-48364
greenrul
2002-05-30 17:15
2002.08.15
Смена раскладки на следующую по счету


6-48236
Ron
2002-06-03 21:40
2002.08.15
WebBrowser


3-48000
Naik
2002-07-27 19:12
2002.08.15
Delphi 6 и BDE


4-48365
mev2000
2002-06-08 23:46
2002.08.15
Как в KOL организовать рекурсивный поиск фалов???


1-48133
Чайник2
2002-08-01 07:15
2002.08.15
CD-ROM





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский