NT 서버용 프로그램인데요.....

클라이언트에서 UDP로 회원ID와 IP가 날라오면, 리눅스 서버에 있는 PL/SQL을

실행시키는 아주 간단한 프로그램(?)인데요.......

StoredProc 컴포넌트가 500번 정도밖에 실행되지 않습니다.....(혹시 이유아심 답변좀.......)

그래서 Thread를 만들어서 해결 하는데 잘 안됩니다.

아래 코드 보시고 답변좀 부탁드려요. 꾸벅~



Type에

function ThreadProc1(P: Pointer):LongInt; stdcall;

procedure UDP1.read에(var에 ThreadID, ThreadHandle 선언후)

ThreadHandle := CreateThread(nil,0,@ThreadProc1,nil,0,ThreadID);

if(ThreadHandle = 0) then

MessageBox(Handle, 'No Thread', nil, MB_OK);

function TForm1.ThreadProc1(P: Pointer):LongInt; stdcall;

begin

StoredProc1.Params[0].AsInteger := t_id;

StoredProc1.Params[1].AsString := t_ip;

StoredProc1.ExecProc;

end; //t_id, t_ip는 전역 변수



*에러는 ThreadHandle := CreateThread(nil,0,@ThreadProc1,nil,0,ThreadID);

여기서 생깁니다. Veriable Required라는 에러닙니다.





그럼 즐통되세요....