انتقال یک jpg با استفاده از stream

[delphi77]

چطور می توانم یک فایل جی پی جی را با استریم منتقل کنم؟

[Touska]

منتقل از کجا به کجا ؟

[koosha system]

دوست من سوال (بالا ذکر شد) کامل نیست.
با Stream می شه هر نوع اطلاعاتی رو ...
چه شبکه و چه داخلی

[vcldeveloper]

اگر یکبار کلمه Stream یا JPEG را در بخش دلفی جستجو می کردید، تا حالا به جواب رسیده بودید!

[delphi77]

1- من ابتدا یک bmp می خوانم
2- بعد آن را jpg تبدیل می کنم
3- بعد آن را با stream به sucket مربوطه در کامپیوتر دیگر می فرستم
4- بعد در ان کامپیوتر می گیرمش و در یک timage قرار می دهم که متاسفانه عکس را نشان نمی ده

[Touska]

شما سایز Stream ی را که در آنور می گیرید چک کنید که source یکی است.

و سپس jpg را در Graphic نشان دهید.

[delphi77]

به دلیل اینکه از کامپوننت tcpserver-client استفاده می کنم نمی دانم که receivelength را چطور بدست بیارم اگر می دانید لطفا راهنمایی بفرمایید

[Touska]

اگر شما Recive ی داشته باشید و بتونید آنها را در یک Stream ریخته و با تابع Sizeof می تونید

سایز آن را بگیرید.

[Naficy]

مجبورید سایز را خودتان ارسال کنید. (قاعدتا قبل از ارسال استریم) نمی توانید از تابعی استفاده کنید.

[delphi77]

من کد دریافتم به این شکله..


var
Stream : TMemoryStream;
Buffer : ^TStream;
i : integer;
begin

Stream := TMemoryStream.Create;
Buffer:=nil;
GetMem(Buffer, BufferSize);
i:=ClientSocket.ReceiveBuf(Buffer^,BufferSize);
Stream.WriteBuffer(Buffer^, i);
FreeMem(Buffer,i);
while i<>0 do
begin
try
GetMem(Buffer, BufferSize);
i:=ClientSocket.ReceiveBuf(Buffer^,BufferSize);
Stream.WriteBuffer(Buffer^, i);
finally
FreeMem(Buffer);
end;
end;
Stream.Seek(0, soFromBeginning);

ImgClientMonitor.Picture.Bitmap.LoadFromStream(Str eam);
end;

[MiRHaDi]

سلام
ImgClientMonitor.Picture.Bitmap.LoadFromStream(Str eam);
شما اگه LoadFromFile بزنی در این حالت و Jpg بدی مگه میخونه که حالا با Stream بخونه !؟
بای

[delphi77]

من متوجه منظور شما نشدم!
من همینطوری bitmap را می فرستم

[Naficy]

1 - همانطور که گفتم قبل از ارسال stream، سایز آنرا بفرستید. با استفاده از recievebuf و امثال آن نمی توانید سایز stream را چک کنید.
2 - نیازی نیست متغیرBuffer را مرتبا GetMem و FreeMem کنید. یکبار همان اول GetMem بزنید و یکبار هم آخر کار FreeMem را صدا بزنید.

[delphi77]

2 - نیازی نیست متغیرBuffer را مرتبا GetMem و FreeMem کنید. یکبار همان اول GetMem بزنید و یکبار هم آخر کار FreeMem را صدا بزنید.

منظورت اینکه همین مسئله مشکل ساز شده
اصلا نحوه دریافت stream که من استفاده می کنم درسته

[Naficy]

خیر. این کار شما فقط سرعت را کاهش می دهد.
برای سومین بار دارم می گم، درست قبل از ارسال stream، سایز آنرا برای کلاینت بفرستید. شما خسته نمی شوید اینقدر من یک حرف رو تکرار می کنم؟

[MiRHaDi]

سلام
عزیزم اشاره کردم بهت که !
Jpeg با Bitmap فرق داره ! اشتباهه کد شما !
فایلش رو هم نمیشه اینجوری باز کرد ! ربطی به Stream نداره
بای

[delphi77]

من به این شکل سایز را فرستادم


TcpClient1.Sendln(IntToStr(StreamLength));
TcpClient1.SendStream(TheStream);


متاسفانه نتوانستم مشکل را حل کنم



Jpeg با Bitmap فرق داره ! اشتباهه کد شما !
فایلش رو هم نمیشه اینجوری باز کرد ! ربطی به Stream نداره

اقای MiRHaDi
درستش چیه؟

[delphi77]

ایا مجبورم فایل را قبلا روی هارد save کنم

[delphi77]

در این صورت با مواردی که فایل حجمش زایاده چه باید کرد

[Naficy]

می بخشید که دیر جواب می دم. دفعه قبل اینترنتم تمام شد...
1 - اول مشخص کنید که bmp را می فرستید یا jpeg را. (کد send تون را بنویسید). این به خاطر آقای میرهادی.
2 - از چه کامپوننتی برای ارسال و دریافت استفاده می کنید؟
3 - نه. منظور من از ارسال سایز این نبود. اما فعلا منظورمو نمی گم تا ار این دو مورد قبلی، مطلع بشم.

[delphi77]

1 - اول مشخص کنید که bmp را می فرستید یا jpeg را.

jpg


2 - از چه کامپوننتی برای ارسال و دریافت استفاده می کنید؟

tcpserver & tcpclient


(کد send تون را بنویسید).

اگر ممکنه صبر کنید بزوردی می فرستمش

[delphi77]

var
screenDC :HDC;
tmpRect :TRect;
TmpBitmap :TBitmap;
jpgtmp :TJPEGImage;
Stm :TMemoryStream;
begin
screenDC :=GetDC(0);
TmpBitmap:=TBitmap.Create;
jpgtmp :=TJPEGImage.Create;
tmpRect :=Rect(0,0,Screen.Width,Screen.Height);
TmpBitmap.Width:=tmpRect.Right-tmpRect.Left;
TmpBitmap.Height:=tmpRect.Bottom-tmpRect.Top;
// TmpBitmap.HandleType := bmDDB;
// TmpBitmap.PixelFormat := pf15bit;
try
//1) Creat bitmap screen desktop;
BitBlt(TmpBitmap.Canvas.Handle,tmpRect.Left,tmpRec t.Top,TmpBitmap.Width,TmpBitmap.Height,screenDC,tm pRect.Left,tmpRect.Top,SRCCOPY);
//2) Convert bitmap to jpg;
jpgtmp.Assign(TmpBitmap);
jpgtmp.CompressionQuality:=80;
//3) Copy jpg to stream;
Stm := TMemoryStream.Create;
jpgtmp.SaveToStream(Stm);
//4) Send stream to sucket;
SendStream(Stm);
finally
TmpBitmap.Free;
jpgtmp.Free;
Stm.Free;
ReleaseDC(0,screenDC);
end;
// veil;
end;

[Naficy]

خوب؛ مثل اینکه متاسفانه من اشتباها تصور می کردم شما از کامپوننت دیگری استفاده می کنید...

ظاهرا مشکل اصلی شما (یا یکی از اصلی ترین مشکلات شما!) همونه که آقای میرهادی می گفتند. شما دارید jpg را ارسال می کنید و بعد می خواهید آنرا با TBitmap بخوانید؟!!!
به جای کد ImgClientMonitor.Picture.Bitmap.LoadFromStream(Str eam); از کد Jpeg.LoadFromStream(Stream); استفاده کنید، که در آن Jpeg یک شی ساخته شده از کلاس TJpegImage باشد.
بدنیست یه سری به این لینک بزنین. کاری رو ظاهرا شما قصد انجامش رو دارین، انجام داده:
http://delphi.about.com/od/internetintranet/l/aa012004b.htm

[delphi77]

بدنیست یه سری به این لینک بزنین. کاری رو ظاهرا شما قصد انجامش رو دارین، انجام داده:
http://delphi.about.com/od/interneti.../aa012004b.htm

ولی در این روش فایل saveمی شه و بعد ارسال می شه

[delphi77]

ممکنه یک کد ساده برای ارسال jpg بنویسید

[Naficy]

ممکنه شما هم مشخص کنید که اصلا به سایر مواردی که گفتم توجه کرده اید یا نه؟