답변이 없어서 다시 올립니다..

Query결과를 Excel전환시 Error 발생하는 군요...



어떠한 Error 냐구요?

"CreateOLEObject('Excel.Application');" 에서

EOlesys Error With Message "Colnitialize를 호출 하지 않았습니다."

라는 Error Message가 발생 한답니다.



여러 고수님들의 조언 바랍니다.

무덥지만 좋은 하루 되세요.....

이호선 wrote:

> 안녕하세요.

> xor연산을 써서 해볼려 했는데 Error가 나더군요

> 제가 작성한 코드는 다음과 같습니다.

>

> const Key = $000000ff;

> ExclusiveTemp := edPass.Text;

> for i := 0 to Length(ExclusiveTemp) do

> begin ExclusiveStr := ExclusiveStr + (ExclusiveTemp[i] xor Key); end;

>

> 여기서 xor부분에서 에라가 발생하는군요

> 그래서 저는 ExclusiveTemp[i]값도 16진수 값이어야 하는줄 알았습니다.





안녕하세요.



포문을 i := 0 부터 돌리는데....문제는 string 형에서 string[0] 번째 에는 그 스트링의 길이가 들어있습니다. 그리고 델파이 도움말에 의하면 string[0]을 직접사용할수는 없다고 합니다.



ExclusiveTemp[0] 은 잘못된것입니다.

Fox 께서 말씀하시기를...

> 답변이 없어서 다시 올립니다..

> Query결과를 Excel전환시 Error 발생하는 군요...

>

> 어떠한 Error 냐구요?

> "CreateOLEObject('Excel.Application');" 에서

> EOlesys Error With Message "Colnitialize를 호출 하지 않았습니다."

> 라는 Error Message가 발생 한답니다.

>

> 여러 고수님들의 조언 바랍니다.

> 무덥지만 좋은 하루 되세요.....





제가 사용한 예제를 올리겠습니다.



TQuery에서 Open된 상태에 버튼을 눌렀을 때

레코드의 처음부터(DBModule.Query3.First)

레코드의 마지막까지(DBModule.Query3.EOF) 데이터를

하나씩 Excel에 넣는 소스입니다.



그리고 반드시 Uses절 ComObj라고 써주어야 합니다.







사이트 소개 http://cafe.hanmail.net/delphi







procedure TMDIChild.BitBtn1Click(Sender: TObject);

var

XL, XArr, XTitle: Variant;

i, j, k: Integer;

begin

//타이틀 처리변수

XTitle := VarArrayCreate([1, DBModule.Query3.FieldCount], VarVariant);

//데이타 처리변수

XArr := VarArrayCreate([1, DBModule.Query3.FieldCount], VarVariant);



try

//엑셀을 실행

XL := CreateOLEObject('Excel.Application');

except

MessageDlg('Excel이 설치되어 있지 않습니다.', MtWarning, [mbok], 0);

Exit;

end;



XL.WorkBooks.Add; //새로운 페이지 생성

XL.Visible := True;

i := 1;

k := 1;



while i <= DBModule.Query3.FieldCount do begin

XTitle[i] := DBModule.Query3.Fields[i-1].FieldName;

Inc(i);

end;

//타이틀처리

XL.Range['A1', CHR(64 + DBModule.Query3.FieldCount) + '1'].Value := XTitle;

DBModule.Query3.First;



while Not DBModule.Query3.EOF do begin

j := 1;

while j <= DBModule.Query3.FieldCount do begin

if DBModule.Query3.Fields[j-1].DataType = ftString then

XArr[j] := '''' + DBModule.Query3.Fields[j-1].Value

else XArr[j] := DBModule.Query3.Fields[j-1].Value;

Inc(j);

end;

//셀에 값을 넣는다.

XL.Range['A' + IntToStr(k+1), CHR(64 + DBModule.Query3.FieldCount) + IntToStr(k+1)].Value := XArr;



DBModule.Query3.Next;

Inc(k);

end;



//셀 크기 조정

XL.Range['A1', CHR(64 + DBModule.Query3.FieldCount) + IntToStr(k)].Select;

XL.Selection.Columns.AutoFit;

XL.Range['A1', 'A1'].Select;

end;

안치봉 wrote:

> 이호선 wrote:

> > 안녕하세요.

> > xor연산을 써서 해볼려 했는데 Error가 나더군요

> > 제가 작성한 코드는 다음과 같습니다.

> >

> > const Key = $000000ff;

> > ExclusiveTemp := edPass.Text;

> > for i := 0 to Length(ExclusiveTemp) do

> > begin ExclusiveStr := ExclusiveStr + (ExclusiveTemp[i] xor Key); end;

> >

> > 여기서 xor부분에서 에라가 발생하는군요

> > 그래서 저는 ExclusiveTemp[i]값도 16진수 값이어야 하는줄 알았습니다.

>

>

> 안녕하세요.

>

> 포문을 i := 0 부터 돌리는데....문제는 string 형에서 string[0] 번째 에는 그 스트링의 길이가 들어있습니다. 그리고 델파이 도움말에 의하면 string[0]을 직접사용할수는 없다고 합니다.

>

> ExclusiveTemp[0] 은 잘못된것입니다.

>



const Key = $000000ff; -> const Key = 255;



ExclusiveTemp[i] -> Ord(ExclusiveTemp[i])



형태로 바꾼 다음 실행을 해보세요.

그리고 XOR나 Shr는 두바이트형 변수형을 사용하여 연산을 하면

내부에서는 Hex값으로 계산이 됩니다.