Q&A
예를들자면,
화상채팅도중에 캡쳐한 영상을 다른 Client에게 전송을 하려합니다.
인디컴포넌트초보라 Image는 어떻게 전송하는지 모르겠습니다.
image전송은 text전송방법과는 다른것 같군요~
고수님들 자세한 설명좀 부탁드립니다.
// 보내는 함수 코딩
procedure TForm1.Button1Click(Sender: TObject);
var
myStream: TMemoryStream;
myJpeg : TJpegImage;
begin
myStream := TMemoryStream.Create;
myJpeg := TJpegImage.Create;
myJpeg.Assign(Image1.Picture.Graphic);
myJpeg.SaveToStream(myStream);
TCPClient1.Connect;
TCPClient1.WriteStream(myStream, True, false);
TCPClient1.Disconnect;
myStream.Free;
myJpeg.Free;
end;
// 받는 부분 코딩
procedure TForm1.TCPServer1Execute(AThread: TIdPeerThread);
var
myStream: TMemoryStream;
myJpeg : TJpegImage;
begin
myStream := TMemoryStream.Create;
myJpeg := TJpegImage.Create;
myStream.Position := 0;
AThread.Connection.ReadStream(myStream, -1, False);
myJpeg.LoadFromStream(myStream);
Image2.Assign(myJpeg);
AThread.Connection.Disconnect;
myStream.Free;
myJpeg.Free;
end;
- Image1의 jpg그림을 Indy를 이용해서 전송하는 방법좀~
예를들자면,
화상채팅도중에 캡쳐한 영상을 다른 Client에게 전송을 하려합니다.
인디컴포넌트초보라 Image는 어떻게 전송하는지 모르겠습니다.
image전송은 text전송방법과는 다른것 같군요~
고수님들 자세한 설명좀 부탁드립니다.
// 보내는 함수 코딩
procedure TForm1.Button1Click(Sender: TObject);
var
myStream: TMemoryStream;
myJpeg : TJpegImage;
begin
myStream := TMemoryStream.Create;
myJpeg := TJpegImage.Create;
myJpeg.Assign(Image1.Picture.Graphic);
myJpeg.SaveToStream(myStream);
TCPClient1.Connect;
TCPClient1.WriteStream(myStream, True, false);
TCPClient1.Disconnect;
myStream.Free;
myJpeg.Free;
end;
// 받는 부분 코딩
procedure TForm1.TCPServer1Execute(AThread: TIdPeerThread);
var
myStream: TMemoryStream;
myJpeg : TJpegImage;
begin
myStream := TMemoryStream.Create;
myJpeg := TJpegImage.Create;
myStream.Position := 0;
AThread.Connection.ReadStream(myStream, -1, False);
myJpeg.LoadFromStream(myStream);
Image2.Assign(myJpeg);
AThread.Connection.Disconnect;
myStream.Free;
myJpeg.Free;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 배재현
- 2001.09.27 02:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 델매니아
- •
- 2001.09.27 02:10
- 1 COMMENTS
- /
- 0 LIKES
-
neps•2001.09.27 02:40델매니아 wrote: 도움 엄청받고 있습니다. 감사합니다. 이번에도 질문임다!! 폼하나 만들어서 드라이...
-
- 처음
- •
- 2001.09.27 01:21
- 5 COMMENTS
- /
- 0 LIKES
-
지나가다가...•2001.09.27 03:23처음 wrote: > 10개의 Label이 있는데요... > > for i:= 1 to 10 do begin > Label(i).Caption :=...
-
처음•2001.09.27 17:43적용을 잘할지 모르겠는데... 참 유용한 방법입니다. 감사합니다. 적용 잘해서 알려주신 글의 보답하겠...
-
loke•2001.09.27 01:36label 의 tag 속성을 이용하세요 처음 wrote: > 10개의 Label이 있는데요... > > for i:= 1 to 10...
-
처음•2001.09.27 02:08그건 아닌데... 각 라벨의 Name이 다릅니다. 원래코딩 Label1.Caption := '어떤값'; Label2....
-
나그네•2001.09.27 21:19FindComponent을 이용해보세요.... for i:= 1 to 10 do begin TLabel(FindComponent('...
-
- 박원진
- •
- 2001.09.27 01:11
- 1 COMMENTS
- /
- 0 LIKES
-
이원택•2001.09.27 18:13박원진 wrote: > 스트링그리드에 있는 내용을 DB에 어떻게 Insert 하는건가요? > 계속 타입이 틀리다면서...
-
- 류정미
- 2001.09.27 00:15
- 0 COMMENTS
- /
- 0 LIKES
-
- aparadin
- •
- 2001.09.27 00:13
- 1 COMMENTS
- /
- 0 LIKES
-
초보•2001.09.27 14:14aparadin wrote: > 직접 프린트를 제어해서 화면의 이미지를 찍어냅니다. > 그런데...... > 설정된 프린...
-
- 델프리
- •
- 2001.09.27 00:12
- 1 COMMENTS
- /
- 0 LIKES
예를들자면, 화상채팅도중에 캡쳐한 영상을 다른 Client에게 전송을 하려합니다. 인디컴포넌트초보라 Image는 어떻게 전송하는지 모르겠습니다. image전송은 text전송방법과는 다른것 같군요~ 고수님들 자세한 설명좀 부탁드립니다. // 보...-
Ziker•2001.10.01 21:59안녕하세요 작성하신 코드는 일반적으로 사용되는 방식입니다. 제가 볼땐 별 무리 없을거 같은데요.. ...
-
- cell
- 2001.09.26 23:52
- 0 COMMENTS
- /
- 0 LIKES
-
- 신현호
- 2001.09.26 23:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 나그네
- 2001.09.26 23:26
- 0 COMMENTS
- /
- 0 LIKES
-
- 도와주세요..ㅜ,.ㅜ
- •
- 2001.09.26 23:06
- 1 COMMENTS
- /
- 0 LIKES
-
stoney•2001.09.27 02:35도와주세요..ㅜ,.ㅜ wrote: > 프로그램을 실행을 시켰더니 " File not found: 'CurrEdit.dcu' " 란 에러...
-
- 이원택
- 2001.09.26 22:56
- 0 COMMENTS
- /
- 0 LIKES
-
- fallroot
- 2001.09.26 22:06
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2001.09.26 21:04
- 1 COMMENTS
- /
- 0 LIKES
-
징글징글델파이•2001.09.27 18:57왕초보 wrote: > database source -> query -> dbcombobox를 사용해서 a라는 필드를 연결하면 a라는 필드...
-
- 델매니아
- •
- 2001.09.26 20:36
- 3 COMMENTS
- /
- 0 LIKES
-
stoney•2001.09.26 21:59왜 프로그램을 짜면서 도스명령을 쓰실려는지는 모르겠지만 다음같이 하면 도스 명령이 가능합니다.. ...
-
델매니아•2001.09.26 22:09앗 질문했던 델매니아 인데요!! 그럼 도스명령을 안쓰고 다른 좋은 방법이 있나요 꼭 알려 주세요!! ...
-
이성훈•2001.09.27 00:38델매니아 wrote: > 앗 질문했던 델매니아 인데요!! > > 그럼 도스명령을 안쓰고 다른 좋은 방법이 있나...
-
-
- aparadin
- •
- 2001.09.26 20:05
- 2 COMMENTS
- /
- 0 LIKES
-
버섯돌이•2001.09.26 22:30aparadin wrote: > [Fatal Error] Could not create outfile 'c:어플test.exe' > 이게 뭐죠 ㅠㅠ 살려주...
-
데빠이•2001.09.26 20:20aparadin wrote: > [Fatal Error] Could not create outfile 'c:어플test.exe' > 이게 뭐죠 ㅠㅠ 살려주...
-
- 하병준
- 2001.09.26 19:45
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보임다.
- 2001.09.26 19:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2001.09.26 18:39
- 1 COMMENTS
- /
- 0 LIKES
-
성더기•2001.09.26 18:44최용일님인가? 그분이 올리신 게 있을검다...
작성하신 코드는 일반적으로 사용되는 방식입니다.
제가 볼땐 별 무리 없을거 같은데요..
> myStream.Position := 0;
> AThread.Connection.ReadStream(myStream, -1, False);
이 소스코드의 순서를 바꿔 보세요.
즐코 되시길~
델프리 wrote:
>
> 예를들자면,
>
> 화상채팅도중에 캡쳐한 영상을 다른 Client에게 전송을 하려합니다.
>
> 인디컴포넌트초보라 Image는 어떻게 전송하는지 모르겠습니다.
>
> image전송은 text전송방법과는 다른것 같군요~
>
> 고수님들 자세한 설명좀 부탁드립니다.
>
>
> // 보내는 함수 코딩
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> myStream: TMemoryStream;
> myJpeg : TJpegImage;
> begin
> myStream := TMemoryStream.Create;
> myJpeg := TJpegImage.Create;
>
> myJpeg.Assign(Image1.Picture.Graphic);
> myJpeg.SaveToStream(myStream);
>
> TCPClient1.Connect;
>
> TCPClient1.WriteStream(myStream, True, false);
>
> TCPClient1.Disconnect;
> myStream.Free;
> myJpeg.Free;
> end;
>
>
> // 받는 부분 코딩
>
> procedure TForm1.TCPServer1Execute(AThread: TIdPeerThread);
> var
> myStream: TMemoryStream;
> myJpeg : TJpegImage;
> begin
> myStream := TMemoryStream.Create;
> myJpeg := TJpegImage.Create;
>
> myStream.Position := 0;
> AThread.Connection.ReadStream(myStream, -1, False);
>
> myJpeg.LoadFromStream(myStream);
> Image2.Assign(myJpeg);
>
> AThread.Connection.Disconnect;
> myStream.Free;
> myJpeg.Free;
> end;
>
>