+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Access violation (https://www.delphican.com/forumdisplay.php?fid=136)
+--- Konu Başlığı: C Nesnelerini Delphi'de kullanmak (/showthread.php?tid=1783)
Sayfalar:
1
2
C Nesnelerini Delphi'de kullanmak - uparlayan - 09-01-2018
Merhaba, soru şu; "C'de hazırlanmış bir object dosyasından fonksiyon ve prosedürleri Delphi'de nasıl kullanabiliriz?"
Aynı soruyu şu şekilde de sormak mümkün; "C'deki bir rutini Delphi'den nasıl çağırırız?"
Örnekleyerek kısaca anlatan herkese 10'ar puan ve ufak bir sürpriz
C Nesnelerini Delphi'de kullanmak - uparlayan - 09-01-2018
C# ve DLL'den bahsetmiyorum
Cvp: C Nesnelerini Delphi'de kullanmak - Halil Han BADEM - 09-01-2018
Acilen uyumam gerek. Özür dilerim hocam
Cvp: C Nesnelerini Delphi'de kullanmak - serhatil - 09-01-2018
Bilen yok galiba
Cvp: C Nesnelerini Delphi'de kullanmak - csunguray - 09-01-2018
Aşağıdaki sayfada ayrıntılı olarak anlatılmıştır.Eğer işinize yarayacaksa Türkçe'ye çevirebilirim.
Using C object files in Delphi:
http://rvelthuis.de/articles/articles-cobjs.html
Cvp: C Nesnelerini Delphi'de kullanmak - uparlayan - 09-01-2018
(09-01-2018, Saat: 20:38)csunguray Adlı Kullanıcıdan Alıntı: Aşağıdaki sayfada ayrıntılı olarak anlatılmıştır.Eğer işinize yarayacaksa Türkçe'ye çevirebilirim.
Using C object files in Delphi:
http://rvelthuis.de/articles/articles-cobjs.html
Maalesef geç kaldınız üstadım
C Nesnelerini Delphi'de kullanmak - uparlayan - 10-01-2018
Çözüm ve sürpriz aşağıdaki linkte ye alıyor;
http://www.delphican.com/c-c-nesnelerine-pascal-dan-erisim.html?pid=13266
Buradan tekrar Savaş Beye teşekkürlerimi sunuyorum.
Cvp: C Nesnelerini Delphi'de kullanmak - savasabd - 10-01-2018
(10-01-2018, Saat: 00:39)uparlayan Adlı Kullanıcıdan Alıntı: Çözüm ve sürpriz aşağıdaki linkte ye alıyor;
http://www.delphican.com/c-c-nesnelerine-pascal-dan-erisim.html?pid=13266
Buradan tekrar Savaş Beye teşekkürlerimi sunuyorum.
Rica ederim,emekleriniz için ben teşekkür ederim.
Cvp: C Nesnelerini Delphi'de kullanmak - Tuğrul HELVACI - 10-01-2018
(09-01-2018, Saat: 20:38)csunguray Adlı Kullanıcıdan Alıntı: Aşağıdaki sayfada ayrıntılı olarak anlatılmıştır.Eğer işinize yarayacaksa Türkçe'ye çevirebilirim.
Using C object files in Delphi:
http://rvelthuis.de/articles/articles-cobjs.html
Kesinlikle katılıyorum.
Cvp: C Nesnelerini Delphi'de kullanmak - savasabd - 11-01-2018
Uyku tutmadı, ben bir örnek paylaşayım bari
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.