Q&A
- Tvideo 아시는 분은 조언 부탁드립니다.
화상 관련해서.. Tvideo를 쓰고 있슴다.
캡쳐된 video stream을 처리하고 싶은데요.. 화상 챗을 만들려구....
쩝..
전 메모리에 대해서 전혀 꽝이라서여. 누가 jpegData에 캡쳐된값을
넣는 법을 좀 가르쳐 주십시요.
아래와 같이 했더니..
데이타가 엉망인지. 안되는 군요...
procedure TForm1.VCVideoStream(sender: TObject; lpVhdr: PVIDEOHDR);
var
FBitmapInfo : TBitmapInfo;
jpegData : array of char;
TB : TBitMap;
begin
TB := TbitMap.Create;
FBitmapInfo := VC.BitMapInfo;
SetLength(jpegData, lpVHdr^.dwBufferLength);
move(lpVHdr^.lpData,jpegData[0],lpVHdr^.dwBufferLength);
FrameToBitmap(TB, jpegData, FBitmapInfo);
image3.Picture.bitmap := TB;
Image3.Refresh;
FreeandNil(TB);
end;
캡쳐된 video stream을 처리하고 싶은데요.. 화상 챗을 만들려구....
쩝..
전 메모리에 대해서 전혀 꽝이라서여. 누가 jpegData에 캡쳐된값을
넣는 법을 좀 가르쳐 주십시요.
아래와 같이 했더니..
데이타가 엉망인지. 안되는 군요...
procedure TForm1.VCVideoStream(sender: TObject; lpVhdr: PVIDEOHDR);
var
FBitmapInfo : TBitmapInfo;
jpegData : array of char;
TB : TBitMap;
begin
TB := TbitMap.Create;
FBitmapInfo := VC.BitMapInfo;
SetLength(jpegData, lpVHdr^.dwBufferLength);
move(lpVHdr^.lpData,jpegData[0],lpVHdr^.dwBufferLength);
FrameToBitmap(TB, jpegData, FBitmapInfo);
image3.Picture.bitmap := TB;
Image3.Refresh;
FreeandNil(TB);
end;
4
COMMENTS
-
-
제가 하려는건....
제가 쓰는 소켓은. 스트링만을 전송하는듯 합니다.
그래서 lpVHdr^.lpData 데이타를 약속된 패킷으로 보내려면 처리가 좀 필요합니다. 이를테면. 아래 코딩에서 jpegData 와 같은 변수에 넣은일련의 값들...
lpVHdr^.lpData -> jpegdata -> lpVHdr^.lpData
소스 패킷 데스트
좀 어렵네요.. 어제 부터 끙끙 대고 있네요..
델파이길 멀고도 험하네요... 흐흐...
-
안녕하세요. 최용일입니다.
아래 코드참조하세요...
fbmpFrameImage : TBitmap;
fjpgFrameImage : TJpegImage;
finfo: TBitmapInfo;
procedure TfrmVideoSend.VideoCapVideoStream(sender: TObject; lpVhdr: PVIDEOHDR);
var
fFileName : String;
begin
frameToBitmap(fbmpFrameImage,lpvhdr^.lpData,fInfo);
fjpgFrameImage.Assign( fbmpFrameImage);
fjpgFrameImage.CompressionQuality := 70;
fjpgFrameImage.Compress;
fVideoStream.Clear;
fjpgFrameImage.SaveToStream( fVideoStream );
fVideoStream.Position := 0;
TransVideoFrame; // TCP나 UPD로 전송
end;
^^ 항상즐코하세요...
-
감사드립니다... 꾸우벅..
(NOTICE) You must be logged in to comment on this post.
-
- 강호수
- •
- 2002.03.07 06:33
- 3 COMMENTS
- /
- 0 LIKES
-
유성웅•2002.04.12 01:38이건 어떼요 MultiByteToWideChar The MultiByteToWideChar function maps a character string to a ...
-
이준희•2002.03.07 18:30CONST // --- Character Translation Table for Unicode <-> Win-1252 WI...
-
강호수•2002.03.07 21:10답변 너무 감사합니다면 변환을 하면 전부 Unknownchar로 나오는데 이거 어떻게 해야 하나요 ? 지금 MSN...
-
- 이수열
- •
- 2002.03.07 05:31
- 4 COMMENTS
- /
- 0 LIKES
-
타락천사•2002.03.07 20:03안녕하세여..타락임다...^^ 흐흐, Win2K 를 깔았는데, 잦은 충돌이 있나 보군여.. ^^;; 일부 시스템 ...
-
이추형•2002.03.07 18:42상위버젼을 사용하고 싶은것은 누구나 다 원하는 일일겁니다. 하지만 개발을 해주어야 하는 입장에서는 ...
-
권대웅•2002.03.07 09:25안녕하세요! 저도 궁금해서 한마디 적어요..^^;;;; 예전에 98을 사용 했는데.. 다들 아시 겠지만....
-
그리고•2002.03.07 06:20저는 98 쓰다가 2000으로 바꾼지 오래 됐는데요 ... 아마 개발자들중 아주 많은사람들이 98 안쓰고 2000 ...
-
- 어린왕자A
- •
- 2002.03.07 03:43
- 1 COMMENTS
- /
- 0 LIKES
-
김강수•2002.03.07 06:09API함수 없구요. Stored Procedure를 통한 View생성은 가능합니다. 단순 T-SQL문을 쿼리 컴포넌트를 통한...
-
- 최군
- •
- 2002.03.07 03:43
- 2 COMMENTS
- /
- 0 LIKES
-
권대웅•2002.03.07 09:30저두.. 자료 변환을 위해서... 여기 저기 많이 찾아 다니다가.. 이 컴포넌트를 사용 해 봤습니다. ...
-
나두초보!!•2002.03.07 19:10자료실에 가보시면.. scExcelExport 컴포런트가 있습니다. 사용하기에두 편하구.. 선두 그려주고..^^;...
-
- 이호연
- •
- 2002.03.07 03:37
- 2 COMMENTS
- /
- 0 LIKES
-
별볼일없는•2002.03.07 03:582번 질문은 폼 크래이트를 하지 않아서 인것 같은데요 프리뷰하기 전에 크래이트명령을 한번 해보세요...
-
이호연•2002.03.09 08:47저도 그랬으면 좋겠습니다. 고수님들 좀 알려주세여 네~~~
-
- 김광재
- •
- 2002.03.07 03:23
- 1 COMMENTS
- /
- 0 LIKES
-
권대웅•2002.03.07 09:40writeln(Fprt,' ', #27+'W1'+'두배출력문자'+#27+'W0'); 예전에 이렇게 해서 출력 한것 같네요...
-
- 한수정
- •
- 2002.03.07 03:14
- 1 COMMENTS
- /
- 0 LIKES
-
이추형•2002.03.14 19:59XP를 다시 설치하세요 (win 2000은 2000번, win 98은 98번.... 아시겠죠?)
-
- 김길남
- •
- 2002.03.07 03:13
- 1 COMMENTS
- /
- 0 LIKES
-
한만교•2002.03.07 03:57Application.MessageBox('화일복사가 완료되었습니다.', '확인', MB_OK);
-
- 김윤곤
- 2002.03.07 02:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재은
- •
- 2002.03.07 02:23
- 2 COMMENTS
- /
- 0 LIKES
-
김용성•2002.03.07 03:57이렇게 한번 다시 작성해보시죠... 그리고 Database 컴포를 더블 클릭하면 기본 설정 사항이 ...
-
장지용•2002.03.07 02:29혹시 폴더명에 괄호 "(" 가 들어가 있지 않나요?
-
- 깨비
- •
- 2002.03.07 01:46
- 4 COMMENTS
- /
- 0 LIKES
화상 관련해서.. Tvideo를 쓰고 있슴다. 캡쳐된 video stream을 처리하고 싶은데요.. 화상 챗을 만들려구.... 쩝.. 전 메모리에 대해서 전혀 꽝이라서여. 누가 jpegData에 캡쳐된값을 넣는 법을 좀 가르쳐 주십시요. 아래와 같이 했더니.....-
루단스•2002.03.07 02:59전송하는건 아니고 단지 옆 image컴포에다가 보여주는거를 지금 하고계시는건가요? 그렇다면.. Framet...
-
깨비•2002.03.07 04:24제가 하려는건.... 제가 쓰는 소켓은. 스트링만을 전송하는듯 합니다. 그래서 lpVHdr^.lpData 데이타를 ...
-
최용일•2002.03.07 19:05안녕하세요. 최용일입니다. 아래 코드참조하세요... fbmpFrameImage : TBit...
-
깨비•2002.03.07 21:56감사드립니다... 꾸우벅..
-
- 프로초보
- •
- 2002.03.07 01:27
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.03.07 03:32////////////////////////////////////////////////////////// 혹시 폼이 자동생성인지 프로젝트 옵션에... -
프로초보•2002.03.07 19:12
-
- 미소나눔
- 2002.03.07 00:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 권혁규
- 2002.03.07 00:53
- 0 COMMENTS
- /
- 0 LIKES
-
- yaechan
- 2002.03.07 00:48
- 0 COMMENTS
- /
- 0 LIKES
-
- 델을배우고파
- •
- 2002.03.07 00:47
- 3 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.03.07 01:45/////////////////////////////////////// 아래 간단히 해봤습니다... 관련된 함수를 도움말에서 찾고 ...
-
델을배우고파•2002.03.07 02:06답변 감사합니다.. 그리고 한가지 더 궁금한게 있는데요.. 이렇게 30분전이나 1시간전의 날자나 시간...
-
홍성락•2002.03.07 04:40////////////////////////////////////////////////////////// 테스트 하기엔 좀 시간이 없구요... 혹...
-
- 이정석
- •
- 2002.03.07 00:35
- 2 COMMENTS
- /
- 0 LIKES
-
김강수•2002.03.07 06:05종이 싸이즈를 Custom 으로 하시고, 가로 세로 길이를 mm나 inch 단위로 정확하게 기재 하세요. 그러면 ...
-
이정석•2002.03.07 18:42답변 감사합니다. 하지만 커스텀 사이즈로 하고 자로 크기를 재어 마추었는데도 다르게 나오네요. 프린터 ...
-
- 우소
- 2002.03.07 00:27
- 0 COMMENTS
- /
- 0 LIKES
-
- ssjeon
- •
- 2002.03.07 00:21
- 1 COMMENTS
- /
- 0 LIKES
-
박상윤•2002.03.09 03:51메모리를 사용하여 분리해서 로드 하시면 될것 같은데... 그것두 그렇지만 화면에 보여주...
-
- 신용탁
- •
- 2002.03.06 23:04
- 3 COMMENTS
- /
- 0 LIKES
-
홍성락•2002.03.06 23:13//////////////////////////////////// 간단히 익스프롤러를 외부로 띄우는거로 말씀드리겠습니다. 유...
-
신용탁•2002.03.07 00:07님... 답변 감사합니다. 근데... 웹브라우저를 외부에 띄울려고 하는게 아니라, 어플리케이션 내부에서 ...
-
사이비•2002.03.07 00:09WebBrowser1.Navigate('http://www.delphi.co.kr'); 티웹브라우져 콤포넌트 쓰이소.
전송하는건 아니고
단지 옆 image컴포에다가 보여주는거를 지금 하고계시는건가요?
그렇다면..
FrametoBitMap(SsendImage.picture.bitmap, lpVhdr^.lpData, FBitmapInfo);
image3.Picture.bitmap := SsendImage.picture.bitmap;
image3.Refresh;
이렇게해보세요.