نمایش عکس از روی سرور

[sajioo]

اول اینکه زحمت بکشید و کدتون رو قرار بدید.

از کدهای خودتون استفاده کردم

سمت کلاینت برای ارسال عکس به سرور

varMS: TMemoryStream;beginMS := TMemoryStream.Create;tryform1.OpenDialog1.Execute;  if form1.OpenDialog1.FileName<>'' then     begin  Ms.LoadFromFile(form1.OpenDialog1.FileName);

      MS.Position := 0;      form1.IdTCPClient1.IOHandler.WriteLn('photo|'+User  Name+'|'+IntToStr(Ms.Size));      form1.IdTCPClient1.IOHandler.WriteBufferOpen;      form1.IdTCPClient1.IOHandler.Write(Ms);      form1.IdTCPClient1.IOHandler.WriteBufferClose;       end;finally     MS.Free;

end;end;

سمت کلاینت برای نمایش عکس

var  ms: TMemoryStream;  j: TJPEGImage;begin  ms := TMemoryStream.Create;  tryIdHTTP1.Get(Edit1.Text,ms);



  ShowImageFromStream(Image1, ms);  finally    ms.Free;  end;end;

سمت سرور برای ذخیره عکس

 Jpg:=TJPEGImage.Create;  MemRecieveStreamPic:=TMemoryStream.Create;  try    PicSize :=strtoint( command[2]);    user:=  command[1];    AContext.Connection.IOHandler.ReadStream(MemReciev  eStreamPic,PicSize,false);    MemRecieveStreamPic.Position:=0;    Jpg.LoadFromStream(MemRecieveStreamPic);    Image1.Picture.Bitmap.Assign(jpg);



  finally    MemRecieveStreamPic.Free;    Jpg.Free;    Image1.Picture.SaveToFile('C:\inetpub\wwwroot\prof  ile\'+command[1]+'.JPG');       str:='photo|1|'+user+'|';  end;

دوم اینکه کتابخانه های مربوطه رو Uses کردید.؟

بله استفاده کردم