图片传输,可将原图片保存到服务器端的目录中!小弟网络不是很熟,请指教!(50分)

  • 主题发起人 主题发起人 Clearboy
  • 开始时间 开始时间
C

Clearboy

Unregistered / Unconfirmed
GUEST, unregistred user!
我要将192.168.0.1(客户端) 上的图片,加到我的客户端,然后显示出来,通过网络不需要什么接收什么的,直接传到我的另一台机上192.168.0.30,并且在我的30机上显示出来,当然假如我不把那个图片COPY到30机上是显示不出来的,我要通过流的形式把图片传过去,而且要最新的,就是跟那个客户端请求的一个样!
就相当于一个主机,两个显示器啊![:D]显示的一模一样的,但是我不必将我的图片COPY到客户端!
网络高手一看啊!小弟,急啊!,急!分不多,给个50,假如不行的话,我可以在加啊!加!
 
用FTP,显示的时候把最新的图片FTP过来再显示
 
那样的话,还是要两边跑啊,我不要两边跑,只要在客户端提出请求,然后就是服务器端显示出来就行了!
 
var
jpgX, jpgY : TJPEGImage;
OutStream : TMemoryStream;
begin
jpgX := TJPEGImage.Create;
jpgX.LoadFromFile('C:/Test.jpg');
jpgX.CompressionQuality := 50;
OutStream := TMemoryStream.Create;
jpgX.SaveToStream(OutStream); // 如果把OutStream声明为TStream,上一句改为TStream.Create,这儿就会出错,为什么呢?报Abstract Error,这里好象没有用抽象方法啊?
jpgY := TJPEGImage.Create;
OutStream.Position:=0; //这里加一个
jpgY.LoadFromStream(OutStream); // 这一句是正常执行的。
Image1.Picture.Bitmap.Assign(jpgY);
OutStream.Position:=0; //这里再加一个
NMUDP1.SendStream(OutStream);
end;
 

Similar threads

D
回复
0
查看
741
DelphiTeacher的专栏
D
D
回复
0
查看
715
DelphiTeacher的专栏
D
D
回复
0
查看
669
DelphiTeacher的专栏
D
后退
顶部