소켓을 이용하는 프로그램을 만들고 있습니다.

서버프로그램에 있는 한개의 TStoredProcedure를

공통적으로 사용하려하는데요...



클라이언트프로그램을 실행하면 다음과 같은 에러가 납니다.

"Variant does not reference an automation object."

에러메세지의 의미와 해결방법을 모르겠습니다.



한수 부~탁 해요

안류진 께서 말씀하시기를...

> 현재 sysbase를 사용하고 있습니다.

> 이미지 field에 파일을 등록하고 싶은데 어떻게 해야할지를 몰라서

> 글을 올립니다.

> object를 사용하지 않고 명령문을 사용해서 처리하는 방법을 가르쳐주세요

> txt파일이나 excel파일을 db에 저장하고 읽고 하는 것입니다.

> 그리고 등록한 데이타를 읽어서 처리하는 방법도 알려주십시요

> 매우 긴급한 일이라 빠른 답변을 부탁합니다.

> 부탁드립니다.



SYSBASE는 BLOB 형 필드를 어떻게 정의하는지 모르겠지만

Table에 BLOB형 필드를 만들고 이곳에 TTable로 저장하고

TQuery 로 조건을 주어서 읽어오는 예제입니다



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

DBTables, Db, StdCtrls;



type

TForm1 = class(TForm)

B_BlobToFile: TButton;

B_FileToBlob: TButton;

B_DeleteBlob: TButton;

Database1: TDatabase;

Query1: TQuery;

Table1: TTable;

E_FileName: TEdit;

procedure B_BlobToFileClick(Sender: TObject);

procedure B_FileToBlobClick(Sender: TObject);

procedure B_DeleteBlobClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}





procedure TForm1.B_BlobToFileClick(Sender: TObject);

var

FS_Write: TFileStream;

begin

try

FS_Write := TFileStream.Create(E_FileName.Text, fmCreate);

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add(' SELECT BLOBFIELD ');

Query1.SQL.Add(' FROM BLOBTABLE ');

Query1.SQL.Add(' WHERE FILENAME = '''+E_FileName.Text+''' ');

Query1.Open;

TBlobField(Query1.FieldByName('BLOBFIELD')).SaveToStream(FS_Write);

// 위의 TFileStream을 쓰지않고 직접 저장하려면 아래의 SaveToFile을 쓰십시요

// TBlobField(Query1.FieldByName('BLOBFIELD')).SaveToFile(E_FileName.Text);

Query1.Close;

finally

FS_Write.Free;

end;

end;



procedure TForm1.B_FileToBlobClick(Sender: TObject);

begin

// Table1.TableName 프로퍼티는 'BLOBTABLE'이 되겠죠

Table1.Open;

Table1.Insert;

Table1.FieldByName('FILENAME').AsString := E_FileName.Text;

TBlobField(Table1.FieldByName('BLOBFIELD')).LoadFromFile(E_FileName.Text);

Table1.Post;

Table1.Close;

end;



procedure TForm1.B_DeleteBlobClick(Sender: TObject);

begin

Query1.Close;

Query1.SQL.Clear;

Query1.SQL.Add(' DELETE FROM BLOBTABLE ');

Query1.SQL.Add(' WHERE FILENAME = '''+E_FileName.Text+''' ');

Query1.ExecSQL;

end;



end.

2-tier or 3-tier 환경으로의 programing시

자료형 중 variant가 있는 것이 아닌지?

이경우는 olevariant자료형을 사용해야 하거든요,,,,

음냐...글쎄요 이런 문제는 서버쪽을 유심히 살펴 보아야 할꺼 같은데요..

우선 서버쪽 프로그램을 고친후에 컴파일(Build all)을 안해 주셨다든가

컴파일을 제대로 했으나 서버쪽에 등록되지 않은 데이타 모듈을

엑세스 하고자 했다던가 아님 컴파일을 제대로 했으나

그 프로그램이 OLE automation server 로 등록이 되지 않았을 경우입니다.

마지막의 경우 Type Labrary에서 한번 확인해 보시고요..



물론 기본적인 얘기가 되겠으나 실제로 코딩하는 입장에서는

빠뜨리고 지나갈 수가 있지요...



그럼 이만





유민호 wrote:

> 소켓을 이용하는 프로그램을 만들고 있습니다.

> 서버프로그램에 있는 한개의 TStoredProcedure를

> 공통적으로 사용하려하는데요...

>

> 클라이언트프로그램을 실행하면 다음과 같은 에러가 납니다.

> "Variant does not reference an automation object."

> 에러메세지의 의미와 해결방법을 모르겠습니다.

>

> 한수 부~탁 해요