님 코드 보면..
athread 를 선언만 하고.. 객체 생성하는 부분이 없네요.
당연히 에라가 날수 밖에 없죠.

앱돌이 님이 쓰신 글 :
: 이런식으로 AThread를 써서 송신을 하려고하는대요 자꾸 violation오류가 생깁니다. 화살표 되있는 부분에서
:
: 왜 에러가 생기고 해결방법좀 알려주세요 고수님들 부탁드립니다. ㅜ.ㅠ
:
:
: void __fastcall TPBCICT::Button3Click(TObject *Sender)
: {
:
:         TIdPeerThread *AThread;
:         struct MES shiftWork;
:
:         SaveInfo("shiftWork",Edit8->Text,"ExWorker");
:         SaveInfo("Common",SendTime,"SendTime");
:         shiftWork.STX = GetInfo("Common","STX");
:         shiftWork.Line = GetInfo("Common","line");
:         shiftWork.From = GetInfo("Common","myid");
:         shiftWork.McPort = GetInfo("Common","McPort");
:         shiftWork.To = GetInfo("Input","To");
:         shiftWork.Command = GetInfo("shiftwork","Command");
:         shiftWork.SendTime = GetInfo("Common","SendTime");
:         shiftWork.ResultCode = GetInfo("shiftwork","ResultCode");
:         shiftWork.Size = GetInfo("shiftwork","Size");
:         shiftWork.HeaderEnd = GetInfo("Common","HeaderEnd");
:         shiftWork.StnId = GetInfo("Common","StnId");
:         shiftWork.McPort = GetInfo("Common","McPort");
:         shiftWork.MegId = GetInfo("shiftwork","MegId");
:         shiftWork.ExWorker = GetInfo("shiftWork","ExWorker");
:         shiftWork.ETX = GetInfo("Common","ETX");
: ---->AThread->Connection->WriteLn(shiftWork.STX+shiftWork.Line+shiftWork.From+shiftWork.To+shiftWork.Command+shiftWork.SendTime+shiftWork.ResultCode+
:         shiftWork.Size+shiftWork.HeaderEnd+shiftWork.StnId+shiftWork.McPort+shiftWork.Worker+shiftWork.MegId +shiftWork.ExWorker+shiftWork.ETX);
:
:         if(shiftWork.Worker != shiftWork.ExWorker){
:                 Edit13->Text = "0";
:         }
:         SaveInfo("Common",shiftWork.ExWorker,"Worker");
:
: }