Konuyu Paylaş : facebook gplus twitter

Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
C Nesnelerini Delphi'de kullanmak
#10
Uyku tutmadı, ben bir örnek paylaşayım bariSmile

cprintf.c dosyası
#pragma once
#include<stdio.h>
#include<stdlib.h>
void __stdcall cprintf(char* format,char** argv,int argc)
{

int i=0;
int iesp;
__asm{
mov iesp,esp
}
for(i=argc-1;i>=0;i--)
{
char *item=argv[i];

__asm
{

push item
}
}
__asm
{
push format
call printf
mov esp,iesp
}


}

void __stdcall csystem(char * cmd){

system(cmd);


}

bcc32 -c cprintf.c komut satırıyla derliyoruz.

dprintf.dpr dosyası

program dprintf;

{$APPTYPE CONSOLE}

{$R *.res}
    {$L cprintf.obj}// derledğimiz object dosyasını linkere bildiriyoruz.
uses
 System.SysUtils;
Type
PPChar=^PAnsiChar;

procedure cprintf(format: PAnsiChar;argv: PPChar=nil;argc: integer=0);stdcall;external;
procedure csystem(cmd: PAnsiChar);stdcall;external;
function _printf(const Format: PChar): Integer; cdecl; varargs; external 'msvcrt.DLL' name 'printf' ;
function _system(const cmd: PChar): Integer; cdecl; external 'msvcrt.DLL' name 'system' ;

var
idizi: array [0..4] of integer=(1,2,5,9,13);
cdizi: array [0..2] of PAnsiChar=('Merhaba','Delphican','Forumu');

begin
cprintf('Merhaba C'#10);
cprintf('%d,%d,%d,%d,%d'#10,PPChar(@idizi[0]),5);
cprintf('%s %s %s'#10,@cdizi[0],3);
csystem('pause');
end.

Daha geniş açıklama zaten makalede var.
Bizi Toprağa Gömdüler Fakat Tohum Olduğumuzu Bilmiyorlardı.
Cevapla

Konuyu Paylaş : facebook gplus twitter



Bu Konudaki Yorumlar
C Nesnelerini Delphi'de kullanmak - Yazar: uparlayan - 09-01-2018, Saat: 15:18
C Nesnelerini Delphi'de kullanmak - Yazar: uparlayan - 09-01-2018, Saat: 15:37
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: hyperxman - 09-01-2018, Saat: 15:38
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: serhatil - 09-01-2018, Saat: 19:20
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: csunguray - 09-01-2018, Saat: 20:38
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: uparlayan - 09-01-2018, Saat: 21:24
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: Tuğrul HELVACI - 10-01-2018, Saat: 10:58
C Nesnelerini Delphi'de kullanmak - Yazar: uparlayan - 10-01-2018, Saat: 00:39
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: savasabd - 10-01-2018, Saat: 08:28
Cvp: C Nesnelerini Delphi'de kullanmak - Yazar: savasabd - 11-01-2018, Saat: 00:23

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Delphi ORM Yapısı ile işlevsel kod çıktısı oluşturma Abdullah ILGAZ 7 656 19-09-2017, Saat: 23:04
Son Yorum: uparlayan



Konuyu Okuyanlar: 1 Ziyaretçi