передача файла

[oteccc]

передаю картинку ошибок ни каких не вылезает, вот только не знаю как сохранить эту картинку себе на комп или в image1 ее вывести помогите

клиент:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
  var
     l: integer;
     buf: PChar;
     src: TFileStream;


begin

  l:= socket.ReceiveLength;


  GetMem(buf, l+1);

 
  Socket.ReceiveBuf(buf, l);


  src:= TFileStream.Create('asd.jpg', fmOpenReadWrite);

  src.Seek(0, soFromEnd);


  src.WriteBuffer(buf, l);

  image1.Picture.Bitmap.Create.LoadFromStream(src);




  src.Free;

  FreeMem(buf);

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Host:= '127.0.0.1';
ClientSocket1.Open;

end;

сервер:

procedure TForm1.Button1Click(Sender: TObject);
var
   filename: string;
   srcfile: TFileStream;

begin

  srcfile:= TFileStream.Create('C:\Users\Samsung\Desktop\картинка\1.jpg', fmOpenRead);


  ServerSocket1.Socket.SendStream(srcfile);
  srcfile.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Open;
end;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[Slym]

а картинка не сразу прилетит а постепенно... и каждый кусочек вызовет ClientSocket1Read где этот кусочек нужно аккуратно сложить воедино и только когда все прилетит (а как об этом узнать? - домашнее задание) выводить в image1.Picture.LoadFromStream(src);

ах да это касается неблокирующего режима... в блокирующем, как мне кажется, все проще, особенно для прямолинейно мыслящих новичков

[Stilet]

как сохранить эту картинку себе на комп или в image1

Посмотри внимательно пример, который я давал в твоей предидущей теме. Там используется цикл для считывания пакетов, пришедших на сеть, крутящийся пока их можно считать. Socket.ReceiveBuf(buf, l); не считывает полностью все что пришло. Он считывает только часть того что уже успело прийти. Эта проблема склейки пакетов. Частично она решается примерно так: http://delphiworld.narod.ru/_all_articles_.html (раздел Сокеты - [27])

Однако на твоем месте я бы этот компонент не использовал (тем паче что и склейка не всегда дает гарантию полного прихода всех данных). Для передачи файлов по сети удобнее использовать компонент IdFTP из Инди.
Если же всетки ну очень хочется использовать классические сокеты, то нужно много литературы прочитать, чтоб понять как именно они должны правильно работать, а поскольку с предидущей темой ты не разобрался рекомендую прислушаться к моим советам и пересесть на компоненты INDY

[Slym]

Сообщение от Stilet

Эта проблема склейки пакетов.

Это проблема прямоты рук на самом деле, в блокирующем режиме этой проблемы нет или она минимальна.

Сообщение от Stilet

тем паче что и склейка не всегда дает гарантию полного прихода всех данных

не надо наговаривать на компонент! он прост как отвертка - и от него руки устают, инди проще в использовании как шуруповерт

[Stilet]

в блокирующем режиме этой проблемы нет или она минимальна.

К сожалению есть и там )

инди проще в использовании как шуруповерт

Вот потому я и предлагаю его автору. Ему же проще будет.

[oteccc]

Сообщение от Stilet

К сожалению есть и там )

Вот потому я и предлагаю его автору. Ему же проще будет.

можешь скинуть какую-нибудь статью про ftp где все описанно

[Stilet]

Нет. Могу только кинуть такое:
http://yandex.ua/yandsearch?text=IdF...ammersforum.ru
Плюс пара легких примеров от меня:

Клиент

  ftp.Host:=Value;
  try
   ftp.Connect;

 if ftp.Connected then 
 try
  ftp.Put('d:\1\файл.bmp','файл.bmp');
  ShowMessage('Передато');
 except
   on e:exception do begin
    ShowMessage(e.Message);
   end;
 end; 

  except
   on e:exception do begin
    ShowMessage(e.Message);
   end;

и сервер (вернее его событие получения файла):

procedure TForm1.FtpServerStoreFile(ASender: TIdFTPServerContext;
  const AFileName: string; AAppend: Boolean; var VStream: TStream);
begin
// Если сохранить в файл:
 VStream:=TFileStream.Create('d:\файл.bmp',fmCreate);

// Если просто получить поток
 VStream:=TMemoryStream.Create();
 
//Потом загружать VStream в какой нить Image уже его средствами
end;

Для этого на форме должен быть IdFTP на клиенте и IdFTPServer на сервере.

[oteccc]

спасибо большое помог с ftp реально быстрее