Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[12213] snoop 관련질문
감사합니다 [] 1967 읽음    2008-10-01 10:05
델파이 초보자입니다. ㅠㅠ
winpcap과 snoop30과 Vdream을 설치하고
패킷보는 프로그램을 만들었는데요

패킷중에서 url이나 등등 정보를 잡아내서 옆 창에 목록으로 만들고 만들고 싶은데요..
어떻게 해야 할지 막막합니다.

procedure TForm1.Button1Click(Sender: TObject);
begin
  snoopTCPData1.AdapterIndex:=1;
  snoopTCPData1.Open;
  if not snoopTCPData1.Active then
  begin
      showMessage(snoopTCPData1.Error);
      exit;
  end;
  end;

procedure TForm1.SnoopTCPData1CaptureTCPData(Sender: TObject;
  PKTHdr: PPCAP_PKTHDR; ETHHdr: PETH_HDR; IPHdr: PIP_HDR; TCPHdr: PTCP_HDR;
  TCPData: PAnsiChar; TCPDataLen: Integer);
var
  s: string;
begin
  SetLength(s, TCPDatalen);
  strMove(@s[1],TCPData,TCPDatalen);
  memo1.Lines.Add(s);
end;

이게 제 소스인데요... 좀 도와주세요^^;

감사합니다.

+ -

관련 글 리스트
12213 snoop 관련질문 감사합니다 1967 2008/10/01
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.