изображение по локальной сети

[Пепел Феникса]

я же сказал куда вставлять.
перед тем как вы закрываете поток.
(это fs.Free)
но не забывать сбросить положение потока, fs.Position:=0 перед загрузкой.

[stlcrash]

Файл передается, сохраняется на жесткий диск, но в image1 не отображается.
исключение как вылетало, так и вылетает.

    if fs.Size = fSize then
       begin
          Receiving := False;
          fs.Position:=0;
          Image1.Picture.Graphic.LoadFromStream(fs);
          fs.Free;
          Jornal('Файл принят!', Unassigned, clGreen);
       end;

const
  bSize : Integer = 4000;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.FormShow(Sender: TObject);
begin
ClientSocket1.Active := True;
Receiving := False;
cmd := TStringList.Create;
fSize := 0;
fName := '';
end;


procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if ClientSocket1.Active then ClientSocket1.Active := False;
if Assigned(cmd) then cmd.Free;
end;



procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
  nRead : Integer;
  rBuf : Pointer;
begin
// если не находимся в режиме получения файла, то значит пришли команды
// в нашем случае это имя и размер файла 
if not Receiving then //получение команды - параметров файла
  begin
      cmd.Text := Socket.ReceiveText;

      fName := cmd.Strings[0];
      fSize := StrToInt64(cmd.Strings[1]);
      Jornal('Прием файла ' + QuotedStr(cmd.Strings[0]), fsItalic);
      Jornal('Размер файла ' + QuotedStr(cmd.Strings[1]), fsBold);

      Gauge1.MinValue := 0;
      Gauge1.Progress := 0;
      Gauge1.MaxValue := fSize;
      Jornal('------------------------------------------', Unassigned);

      // переход в режим приема файла  и создание потока для приема файла
      Receiving := True;
      fs := TFileStream.Create(fName, fmCreate);

      Gauge1.Progress := 0;
      //Уведомление сервера о готовности приема файла
      cmd.Clear;
      cmd.Add('send');
      cmd.Add(fName);
      Socket.SendText(cmd.Text);
  end
else // режим получения файла
  begin
    repeat
      Socket.Lock;
      // выделение памяти под принятый кусок данных
      GetMem(rBuf, bSize + 1);
      // считывание данных nRead = количество считанных байт
      nRead := Socket.ReceiveBuf(rBuf^, bSize);
      // если что то считалось, то запись данных в файл
      if nRead > 0 then
        begin
          //fs.Seek(0, soFromEnd);
          fs.WriteBuffer(rBuf^, nRead);
          Gauge1.Progress := fs.Size;
        end;

      FreeMem(rBuf);
      Socket.Unlock;
      Application.ProcessMessages;
    until (nRead <= 0);


    // если всё данные считались, то переключение режима приема обратно и освобождение переменной потока
    if fs.Size = fSize then
       begin
          Receiving := False;
          fs.Position:=0;
          Image1.Picture.Graphic.LoadFromStream(fs);
          fs.Free;
          Jornal('Файл принят!', Unassigned, clGreen);
       end;
  end;
end;


// процедура вывода данных в журнал [текст сообщения, стиль текста, цвет текста]
procedure TForm1.Jornal(txt: string; fst : TFontStyle; clr : TColor);
var
  time : string;
  totallen, curlen, sstart : Integer;
begin
if txt = '' then Exit;
time := '[' + DateTimeToStr(now) + '] ';
RxRichEdit1.Lines.Add(time+txt);
RxRichEdit1.SelStart := Length(RxRichEdit1.Lines.Text) - Length(time+txt) - RxRichEdit1.Lines.Count - 1;
RxRichEdit1.SelLength := Length(time+txt);

end;


procedure TForm1.ClientSocket1Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
Jornal('> Подключён к серверу [' + Socket.RemoteAddress + ']', Unassigned, clGreen);
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
Jornal('< Отключён от сервера [' + Socket.RemoteAddress + ']', Unassigned, clRed);
end;

end.

[Пепел Феникса]

то что вы посылаете вообще картинка?

эксепш кстати тоже семью тайнами покрыт?

[stlcrash]

да картинка. в формате BMP. она сохраняется на диск и открывается. но в программе в immage не отображается и вылетает на строчке

fs.Position:=0;
Image1.Picture.Graphic.LoadFromStre am(fs);

[Пепел Феникса]

а на диске то файл открывается?

[stlcrash]

Сообщение от Пепел Феникса

а на диске то файл открывается?

да.

[Пепел Феникса]

текст эксепшена озвучьте.

[stlcrash]

Сообщение от Пепел Феникса

текст эксепшена озвучьте.

First chance exception at $005D12D0. Exception class $C0000005 with message 'access violation at 0x005d12d0: read of address 0x00000000'. Process Client.exe (4924)

[Пепел Феникса]

если не ошибаюсь, не так из потока надо картинку грузить.
у вас Graphics скорее всего nil.
вообще вы не пробовали в момент исключения посмотреть переменные, тут же бы нашли причину, отладчик хорошая вещь

[stlcrash]

Сообщение от Пепел Феникса

если не ошибаюсь, не так из потока надо картинку грузить.
у вас Graphics скорее всего nil.
вообще вы не пробовали в момент исключения посмотреть переменные, тут же бы нашли причину, отладчик хорошая вещь

был бы я еще программистом )