안녕하세요 언제나 초보 바보감자입니다 꾸벅..

언제나 저에게 도움을 주신 고수님들께 언제나 감사하며.

또 한가지 가르침을 얻고자 이러케 글을 올립니다..

가르쳐주시는것을을 모두 제것으로 만들려고 노력하는것이 고수님들께 보답하는 길이므로 열심히 공부하겠습니다..

인디 소켓.. 스트링형 데이타전송은 잘 되더군요..샘플도 있구..해서..

그런데..스트림형의 데이타 전송.. 정확하게는.이미지 전송인데..

자꾸 에러가 나네요 ㅠㅠ..

일단 소스를 보면서..

///보내는 쪽입니다..////////

image1에 이미지를 me(메모리스트림)에 넣은후에..

그놈을 라이트스트림을이용해서 넣는건데..





procedure TForm1.Button4Click(Sender: TObject);

var

me: TMemoryStream;

begin

with TCPClient do

begin

me := TMemoryStream.Create;

Image1.Picture.bitmap.SaveToStream(me);

me.Seek(0,0);

Connect;

// OpenWriteBuffer;

WriteStream(me);

// CloseWriteBuffer;

Disconnect;

end;

end;





//////////받는쪽...

procedure TForm1.TCPServerExecute(AThread: TIdPeerThread);

var

meme: TMemoryStream;

begin

with AThread.Connection do

begin

meme := TMemoryStream.Create;

ReadStream(meme); <-- &&&&&&&&&&이부분에서 밑의 에러가납니다..&&&&&&

Image2.Picture.bitmap.LoadFromStream(meme);

Disconnect;

end;

end;

에러내용..



Out of Memory while Expanding Memory Steram



어떤 건지 답변좀 해주세요.. 검색해보니까..예전에두 이런 분이계셨는데..

답변이 없더라구요..ㅠㅠ..부탁드립니다..



그럼 밤이늦었는데 언제나 즐거운 코딩하시길빌며...





언제나 비를 기다리는 바보감자가 올림