Delphi Forum

TFotograf = class(TRemotable)
private
Fidno: Integer;
Fresim: array of byte;
published
property idno: Integer read Fidno write Fidno;
property resim: array of byte read Fresim write Fresim;
end;

{ Invokable interfaces must derive from IInvokable }
IDemoSoapWebServisi = interface(IInvokable ...

Delphi'de bir web servis yazmaya çalışıyorum. Kullandığım tablo alanları idno integer, resim blob olarak tanımlı.
Tablonun blob alanını web servisde nasıl tanımlamam gerekiyor. Resimler bu blob alanda kayıtlı durumda. Bir client yazılımı ile web servisten bu blob alanındaki resimleri alıp ...

a,b,c,d,e,f,k,l,m,n,p gibi değişkenlere aynı anda sıfır değerini atamak istiyorum

foxpro da bu işlemi store 0 to a,b,c,d,e,f,k,l,m,n,p

seklinde yapıyorduk

Teşekkürler Yusuf,

Bu kod işimi görür. Çok miktarda kayıt olduğunda hızlı çalışırmı deneyeceğim. Bende aşağıdaki gibi yaptım. Çok kayıtlı tablolarda yavaş çalışıyor. Amacım birazda aktarma işleminin hızlı olmasıydı. Bunun için bir yöntem arıyordum.


procedure Tv.TableAktar(tblName:string);
var ...

Buradaki iki tabloda farklı veritabanlarındadır. Yapmak istediğim şey bir firebird veritabanındaki tablodan başka bir firebird veritabanındaki tabloya veri aktarmaktır.
Veri tabanlarındaki her iki tabloda aynı yapıdadır.Bir listbox'dan seçtiğim tablonun alan listesini kullanarak diğer tabloya ...

Memo içindeki ifade aşağıdaki gibi runtime sırasında oluşuyor.

IBTable2.FieldByName('alan1').Value:=IBTable1.FieldByName('alan1').Value;
IBTable2.FieldByName('alan2').Value:=IBTable1.FieldByName('alan2').Value;
IBTable2.FieldByName('alan3').Value:=IBTable1.FieldByName('alan3').Value ...

Denemek için delphi xe2 kurdum makinama. Rx comapanentlerini kurarken access violation hatası verdikten sonra Delphi XE2 yi çalıştırdığımda şu hata ile karşılaşıyorum.

Access violation at address 500439D1 in module 'rtl160.bpl'. Read of address 00000000.

Bu hatayı verdikten sonra Delphi ...

tstringlist yöntemini denedim. Fakat 18000 kayıt yazdıktan sonra out of memory hatasını yine aldım.

Kodu aşağıdaki gibi değiştirdim.


procedure TForm1.Button3Click(Sender: TObject);
var
dosya:TextFile;
dosya_isim,baslik_adi:string;
baslik_say,syc,kaysay,sayac:integer;
st,st1:String;
Liste ...

Pardon kodu unutmuşum


procedure TForm1.Button3Click(Sender: TObject);
var
dosya:TextFile;
dosya_isim,baslik_adi:string;
baslik_say,syc,kaysay,sayac:integer;
st,st1:String;
begin
dosya_isim:='c:\persisfb\'+ListBox2.Items[Listbox2.ItemIndex]+'.csv';
AssignFile(dosya, dosya_isim) ;
Try
begin ...

Aşağıdaki kod ile bir tablonun alan isimlerini ve değerlerini aralarında noktalı virgül olacak şekilde text dosyaya yazdırıyorum.Tabloda çok fazla miktarda kayıt olduğundan yazma işlemi yapılırken text dosya belli bir boyuta ulaştığında out of memory hatası alıyorum ve program kırılıyor. Bu sorunu ...

Report Builder ile hazırlanan raporu .pdf formatında dosya olarak saklayabilir miyiz?

IBExpert'ü çalıştırıyorum fakat çalışması 5 dakikak alıyor. Bir tabloyu açmaya kalktığımda yine bekliyorum.Tablo hemen açılmıyor. IBExpert'ü kapatmak istediğimde de yaklaşık 5-10 dakika bekliyorum.Bu sırada ekranımdaki herşey donup kalıyor. 2 gündür bu sorunu 2 arkadaş yaşıyoruz.Sorun nedir ...

report builder da aşağıdaki ifadeyi detail bandın before print olayına koydum. ppDbText1,ppDbText2,....,ppDbText32 şeklinde 32 tane var.
Aşağıdaki ifadenin benzeri 32 adet yazarsam işlem tamam fakat bu uzun bir iş. Bu işlem daha kısa bir şekilde yapılabilirmi.

ppDbText1.Font.Style:= ppDbText1.Font ...

Report builder kullanıyorum. İlk sayfada bir sütunun toplamını aldırıyorum.
2. sayfaya bu toplamı nakletmek istiyorum.Naklendilen ile birlikte bu sayfanın toplamını da oluşturmam gerekiyor. Bu şekilde son sayfaya kadar işlem devam edecek. Sayfa toplamı ve nakledilen toplam için global bir değişken ...

php.ini dosyasında upload_max_filesize = 8M sınırını ne kadar arttırabiliriz.
12mb lık bir dosyayı upload edemedim.