IT/Delphi

델파이로 mssql 데이터베이스 연결


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
 msConnection : TMSConnection;
begin
   msConnection := TMSConnection.Create(nil);
   with msConnection do
   begin
     try
       DisConnect;

       Authentication := auServer;
       Username       := id;
       Password       := pw;
       Server         := serverip;
       Database       := dbname;

       Connect;
      except
        on E : Exception do
        begin
          DisConnect;
          exit;
        end;
      end;
   end;
end;
cs


,
IT/Delphi

mssql 에서의 image필드를 파일로 만들기

MSSQL에 image type 필드에 이미지가 있는 경우 파일로 만드는 방법입니다.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

var
  qryCust : TMSQuery;
  ms := TMemoryStream;
 begin
  qryCust := TMSQuery.Create(nil);
  qryCust.Connection := DBCONNECTION;
  ms := TMemoryStream.Create;
  try
    with qryCust do
    begin                   
      close;                
      sql.text := ' select imageField from TableName ';
      Open;
      TBlobField( FieldByName('Image')).SaveToStream(  ms );
      ms.Position := 0;
      ms.SaveToFile('C:\123.jpg');
    end;
  finally
    qryCust.Free;
    ms.free;
  end
cs


,
IT/프로젝트

[테트리스5] 테트리스 소스

안녕하세요. 컴퓨터 못하는 컴퓨터공학생입니다.


델파이를 사용하여 만든 테트리스 소스를 깃허브에 올리고 깃허브 주소를 공유하려 합니다.


사실 소스를 공유한다는것 자체가 뭔가 평가 받는 느낌이 들고 ,

점수매겨지는 느낌이 들고, 

쪽팔려서 공개를 안하고 싶지만..


공개를 함으로써 저나 보는 사람 둘다 도움이 됬으면 하는 바람으로 올립니다.


https://github.com/ljh3326/tetris.git


사실 원하는 기능을 다 구현하지 못하여서 조금더 수정을 할겁니다.



감사합니다.

,
 [ 1 ]  [ 2 ]  [ 3 ]  [ 4 ]  [ 5 ]  [ 6 ]  [ 7 ] 

최근 댓글

최근 트랙백

알림

이 블로그는 구글에서 제공한 크롬에 최적화 되어있고, 네이버에서 제공한 나눔글꼴이 적용되어 있습니다.

링크

카운터

Today :
Yesterday :
Total :