배열 포인터 사용을 알고 싶습니다.



var

ttt : array[0..10] of integer;

ptrttt : pointer; // 질문1. 배열포인터는 어떻게 정의 하는지 ?

temp_i : integer;



..

bgein

ptrttt := @ttt;

temp_i := ptrttt[k] // 질문 2. k번째 자료의 값을 어떻게 읽어 들이는지 ?

.......

.......

ptrttt[k] := temp_i // 질문 3. k번째에다 자료를 어떻게 넣는지 알고싶습니다...

end;

델파이의 TServerSocket과 TClientSocket을 이용하시면 됩니다.

그 컴포넌트들로 TCP/IP 를 이용하여 서로 원하는것을 주고 받을 수 있습니다.

단, 서저 컴퓨터가 고유의 IP주소를 가지고 있어야 합니다.

그래야 Client쪽에서 접속을 한 후에 서로 통신을 할 수 있죠.







조영우 wrote:

>

> 저희 사무실의 컴퓨터들은 LAN 환경으로 연결되어 있고,

> 자체 게이트웨이를 통해 인터넷 서비스 제공자와 연결하여

> 인터넷을 사용하고 있습니다.

>

> 이런 환경에서, 하나의 컴퓨터를 서버로 삼아 서버 프로그램을 깔고,

> 다른 컴퓨터들에 클라이언트 프로그램을 깔아서 서로 통신을 할 수

> 있도록 하고 싶습니다.

>

> 데이터베이스 환경에서의 통신이 말구요...

> 각 컴퓨터의 상황에 대한 정보를 서로 주고 받을 수 있도록 하고 싶습니다.

> 이렇게 하려면 어떻게 해야 하는지 알려주시면 고맙겠습니다.

>

김학선 께서 말씀하시기를...

> 배열 포인터 사용을 알고 싶습니다.

>

> var

> ttt : array[0..10] of integer;

> ptrttt : pointer; // 질문1. 배열포인터는 어떻게 정의 하는지 ?

> temp_i : integer;

>

> ..

> bgein

> ptrttt := @ttt;

> temp_i := ptrttt[k] // 질문 2. k번째 자료의 값을 어떻게 읽어 들이는지 ?

> .......

> .......

> ptrttt[k] := temp_i // 질문 3. k번째에다 자료를 어떻게 넣는지 알고싶습니다...

> end;

>

>



안녕하세요.



쩝. 델파이만 하다 보니 예전에 C,C++ 에서 하던 포인터에 대한 감이 거의 사라



졌습니다... 맞는 답변이 될지 모르겠군요.... -.-;;



procedure TForm1.FormCreate(Sender: TObject);

type

PP = array[0..10] of integer;

var

d: PP;

p: ^PP;

temp: integer;

begin

p := @d;



temp := p^[0];

temp := p^[10];



p^[5] := temp;

...

...

end;