Q&A
- Undeclared identifier: 'AssingnFile' 멋진오빠들 에러좀
unit U_Pamt;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, ShellAPI, Menus, isp3,
Registry, OleCtrls, FileCtrl, inifiles;
{var
s_uip, s_home: string;}
type
TPamt = class(TForm)
Panel1: TPanel;
Stip: TStaticText;
Sthome: TStaticText;
Edip: TEdit;
Edhome: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action : TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Pamt: TPamt;
implementation
{$R *.DFM}
procedure TPamt.FormCreate(Sender: TObject);
var
process:string;
commandbuf: array[0..300] of Char;
parambuf: array[0..300] of Char;
senddata: string;
IPini: Tinifile;
FP : Textfile;
begin
IPini :=Tinifile.Create(ExtractFilePath(Application.ExeName)+'portmis.ini');
Edip.Text := IPini.ReadString('IP정보','IP','');
Edhome.Text := IPini.ReadString('IP정보','HOME','');
IPini.Free;
try
[Error ] AssingnFile(FP,'C:TC201PL'+ FormatDateTime('YYYYMM',now)+ '.DAT');
Reset(FP);
process := Edhome.Text +'JJOEFPUT_COMMUNI';
[Error] senddata := Edip.Text + '15564' + Reset(FP);
StrPCopy(commandbuf, process);
StrPCopy(parambuf, senddata);
ShellExeCute(0, nil, commandbuf, parambuf, nil, SW_SHOW);
except
MessageBeep(0);
end;
end;
procedure TPamt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Close;
end;
end.
[Error] U_Pamt.pas(49): Undeclared identifier: 'AssingnFile'
[Error] U_Pamt.pas(52): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project2.dpr(5): Could not compile used unit '기상수신U_Pamt.pas'
에러를 못찾겠는거 있죠...
그래서 짱오빠들의 힘좀 빌릴려구여...
전송하는 프로그램을 만들려구 하거든여...
대충 했는데 될지는 미지수구여....
에러를 다고치면 될까여...???
오빠들 힘좀 써주셔여....
알죠...
좋은 시간만들구여..*^^*
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, ShellAPI, Menus, isp3,
Registry, OleCtrls, FileCtrl, inifiles;
{var
s_uip, s_home: string;}
type
TPamt = class(TForm)
Panel1: TPanel;
Stip: TStaticText;
Sthome: TStaticText;
Edip: TEdit;
Edhome: TEdit;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action : TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Pamt: TPamt;
implementation
{$R *.DFM}
procedure TPamt.FormCreate(Sender: TObject);
var
process:string;
commandbuf: array[0..300] of Char;
parambuf: array[0..300] of Char;
senddata: string;
IPini: Tinifile;
FP : Textfile;
begin
IPini :=Tinifile.Create(ExtractFilePath(Application.ExeName)+'portmis.ini');
Edip.Text := IPini.ReadString('IP정보','IP','');
Edhome.Text := IPini.ReadString('IP정보','HOME','');
IPini.Free;
try
[Error ] AssingnFile(FP,'C:TC201PL'+ FormatDateTime('YYYYMM',now)+ '.DAT');
Reset(FP);
process := Edhome.Text +'JJOEFPUT_COMMUNI';
[Error] senddata := Edip.Text + '15564' + Reset(FP);
StrPCopy(commandbuf, process);
StrPCopy(parambuf, senddata);
ShellExeCute(0, nil, commandbuf, parambuf, nil, SW_SHOW);
except
MessageBeep(0);
end;
end;
procedure TPamt.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Close;
end;
end.
[Error] U_Pamt.pas(49): Undeclared identifier: 'AssingnFile'
[Error] U_Pamt.pas(52): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
[Fatal Error] Project2.dpr(5): Could not compile used unit '기상수신U_Pamt.pas'
에러를 못찾겠는거 있죠...
그래서 짱오빠들의 힘좀 빌릴려구여...
전송하는 프로그램을 만들려구 하거든여...
대충 했는데 될지는 미지수구여....
에러를 다고치면 될까여...???
오빠들 힘좀 써주셔여....
알죠...
좋은 시간만들구여..*^^*
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
-
이방인•2001.10.19 19:35궁금이 wrote: > 폼에다가 문자를 출력해주고 싶은데 > 표준출력을 어떻게 하는지요? > 폼 자체에다가 ... -
궁금이•2001.10.19 20:57이방인 wrote: > 궁금이 wrote: > > 폼에다가 문자를 출력해주고 싶은데 > > 표준출력을 어떻게 하는지...
-
지나가는사람•2001.10.19 23:17OnPaint에 넣어 보세요... Self.Canvas.TextOut(100,100,'안녕'); 궁금이 wrote: > 이방인 wrote: > ...
-
-
- 이기준
- 2001.10.19 18:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 제노
- 2001.10.19 18:45
- 0 COMMENTS
- /
- 0 LIKES
-
- dskang
- 2001.10.19 09:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 델프리
- 2001.10.19 09:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 누굴까?
- •
- 2001.10.19 08:44
- 1 COMMENTS
- /
- 0 LIKES
-
조건일•2001.10.19 11:08님께서 고민 하신는 문제는 간단하게 해결할수 있습니다... 98과 2000 사이의 폰트 문제는 익히알려진 문...
-
- 초보자
- •
- 2001.10.19 07:33
- 1 COMMENTS
- /
- 0 LIKES
-
정성훈•2001.10.19 22:20초보자 wrote: > 질문이 있어서 간만에 글을 씁니다.. > > 제가 성적 처리 플그램을 짜고 있는데.. 자...
-
- 용이
- •
- 2001.10.19 06:35
- 3 COMMENTS
- /
- 0 LIKES
-
지나가는사람•2001.10.19 22:58var GetDiskInfo:TGetDiskInfo; begin if SysLibHandle 0 then Exit; // SysLibHandle은 폼생성...
-
지나는이•2001.10.19 09:22용이 wrote: > MDI parent에서 특정 버튼을 눌러서 DLL로 만든 MDI Child를 실행시켰습니다. > 그런데......
-
정성훈•2001.10.19 22:12지나는이 wrote: > 용이 wrote: > > MDI parent에서 특정 버튼을 눌러서 DLL로 만든 MDI Child를 실행시...
-
- 왕초보
- •
- 2001.10.19 04:03
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 04:17왕초보 wrote: > showmessage 프로시저를 쓸 때 > 캡션으로 프로젝트 명이 나오는 데요.... Project1과 ...
-
왕초보•2001.10.19 04:32홍성락 wrote: > 왕초보 wrote: > > showmessage 프로시저를 쓸 때 > > 캡션으로 프로젝트 명이 나오는 ...
-
- 바이오맨(초보)
- •
- 2001.10.19 03:45
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 06:00바이오맨(초보) wrote: > 스트링 그리드에 체크박스를 올리는데 row카운트가 증가할때마다 자동생성으로 ...
-
- 왕초보
- 2001.10.19 03:43
- 0 COMMENTS
- /
- 0 LIKES
-
- 최준원
- •
- 2001.10.19 03:49
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 04:05최준원 wrote: > label1.caption := format('%m',[strtofloat(strarr[1])]); > 이런 형식으로 레이블에 ...
-
- 차차 델을 알아가는
- •
- 2001.10.19 03:01
- 1 COMMENTS
- /
- 0 LIKES
-
지나는이•2001.10.19 09:34차차 델을 알아가는 놈... wrote: > FTP에 관련하여질문이 있어서리 그러는데요.... > 밑에 이 소스는 어...
-
- 수정이^^
- •
- 2001.10.19 02:18
- 1 COMMENTS
- /
- 0 LIKES
unit U_Pamt; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, ShellAPI, Menus, isp3, Registry, OleCtrls, FileCtrl, inifiles; {var s...-
srookie•2001.10.19 02:23안녕하세요. 그냥 uses에 system이라는 unit만 추가하면 됩니다. 수정이^^ wrote: > unit U_Pamt; > ...
-
- 최유순
- 2001.10.20 12:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 김재만
- •
- 2001.10.19 01:15
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.10.19 02:24김재만 wrote: > 안녕하세요. 이호림이라고 합니다. > Win32에보면 달력 컴포넌트가 있는데 사용자가 날...
-
- 임상일
- 2001.10.19 00:22
- 0 COMMENTS
- /
- 0 LIKES
-
- 문철민
- •
- 2001.10.19 00:17
- 1 COMMENTS
- /
- 0 LIKES
-
선해석•2001.10.19 01:40BDE Administrator 에서 database탭 말구 Configuration탭에서 Configuration - Drivers - Native - ORACL...
-
- sql 초보자^^*
- •
- 2001.10.19 00:12
- 2 COMMENTS
- /
- 0 LIKES
-
석•2001.10.19 01:30TQuery 의 RecNo를 이용하면 될 것 같은데... Query1.SQL.Clear; Query1.SQL.Text := select * fro...
-
공성환•2001.10.19 01:10오라클이라면 rownum이라는걸 쓰시면 될것같은데... sql 초보자^^* wrote: > 어떤 쿼리의 결과값과 함...
-
- 궁금증
- •
- 2001.10.18 23:22
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2001.10.19 01:08minus기능은 오라클에있는기능으로 알고 있는데요... 파라독스에서는 안되는걸로 알고있는데... 잘모르겠...
그냥 uses에 system이라는 unit만 추가하면 됩니다.
수정이^^ wrote:
> unit U_Pamt;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls, Db, DBTables, Grids, DBGrids, ExtCtrls, ShellAPI, Menus, isp3,
> Registry, OleCtrls, FileCtrl, inifiles, system;
~~~~~~~
>
> {var
> s_uip, s_home: string;}
>
> type
> TPamt = class(TForm)
> Panel1: TPanel;
> Stip: TStaticText;
> Sthome: TStaticText;
> Edip: TEdit;
> Edhome: TEdit;
> procedure FormCreate(Sender: TObject);
> procedure FormClose(Sender: TObject; var Action : TCloseAction);
> private
> { Private declarations }
> public
> { Public declarations }
> end;
>
> var
> Pamt: TPamt;
>
> implementation
>
> {$R *.DFM}
>
> procedure TPamt.FormCreate(Sender: TObject);
> var
> process:string;
> commandbuf: array[0..300] of Char;
> parambuf: array[0..300] of Char;
> senddata: string;
> IPini: Tinifile;
> FP : Textfile;
> begin
> IPini :=Tinifile.Create(ExtractFilePath(Application.ExeName)+'portmis.ini');
> Edip.Text := IPini.ReadString('IP정보','IP','');
> Edhome.Text := IPini.ReadString('IP정보','HOME','');
> IPini.Free;
> try
> [Error ] AssingnFile(FP,'C:TC201PL'+ FormatDateTime('YYYYMM',now)+ '.DAT');
> Reset(FP);
> process := Edhome.Text +'JJOEFPUT_COMMUNI';
> [Error] senddata := Edip.Text + '15564' + Reset(FP);
> StrPCopy(commandbuf, process);
> StrPCopy(parambuf, senddata);
> ShellExeCute(0, nil, commandbuf, parambuf, nil, SW_SHOW);
> except
> MessageBeep(0);
> end;
> end;
> procedure TPamt.FormClose(Sender: TObject; var Action: TCloseAction);
> begin
> Close;
> end;
>
> end.
>
>
> [Error] U_Pamt.pas(49): Undeclared identifier: 'AssingnFile'
> [Error] U_Pamt.pas(52): Incompatible types: 'String' and 'procedure, untyped pointer or untyped parameter'
> [Fatal Error] Project2.dpr(5): Could not compile used unit '기상수신U_Pamt.pas'
> 에러를 못찾겠는거 있죠...
> 그래서 짱오빠들의 힘좀 빌릴려구여...
> 전송하는 프로그램을 만들려구 하거든여...
> 대충 했는데 될지는 미지수구여....
> 에러를 다고치면 될까여...???
> 오빠들 힘좀 써주셔여....
> 알죠...
> 좋은 시간만들구여..*^^*