Delphi Forum

Example programs
https://yadi.sk/d/Yxg_uK3mic9Du

Merhaba,

Win 7'de Delphi 7 kurmaya çalışıyorum. Setup dosyasını çalıştırıca "windows installer'ı yeniden yüklemek" hatası veriyor ama win 7 64 bit için uygun windows installer bulamadım. Yüklemek istediklerimde sisteme uygun değil uyarısı alıyorum. Ne yapmalıyım?

C:\
Program Dosyaları (x86 ...

USE PROJELERX
GO
CREATE DATABASE ProjelerX_dbss1800 ON
( NAME = ProjelerX_Data, FILENAME =
'E:\PROJELERX\SNAPSHOT\ProjelerX_dbss1800.ss' )
AS SNAPSHOT OF ProjelerX;
GO

PROJELERX -> DB adı
ProjelerX_dbss1800 -> Yeni oluşturulacak olan Snapshot DB adı
ProjelerX_dbss1800.ss' -> HDD üzerinde ...

nCrypToText programı ile

- Hazırladığınız kriptolu metni text veya word belgesi olarak kaydedip e-mail yoluyla gönderebilirsiniz.

- Steganografi (Stegano) ile mesajlarınızı Bmp image dosyası içerisinde kriptolu kaydedip e-mail yoluyla gönderebilirsiniz.

- Dahili ağ üzerinde arkadaşlarınızla ...

Tarihten sonraki kısımda "Like" komutunu kullanmayı dener misin?

Genelde tarih formatından kaynaklanıyor.
manuel olarak şöyle dener misin?
2015/09/10

Paketleme için bu componenti kullanmak zorunda değilsin.
z7 isimli programın *.dll dosyalarını kullanabilirsin.
Kendi hazırladığım programın "Dizin & Dosya Paketle" bölümü bir fikir verebilir.
https://yadi.sk/d/Yxg_uK3mic9Du

https://yadi.sk/d/Yxg_uK3mic9Du
burada bulunan programın GÜNLÜK/Anı kısmını incelemeni tavsiye ederim. Bir fikir verebilir.
Kayıtlar kriptolu olarak yapılıyor, ancak ekrana çözülmüş halde geliyor.

Exceldeki tarih yazılacak hücrenin formatı metin yapılması gerekir.

ExcelApp.Range['A4:A5'].NumberFormat := '@'; // Hücre Formatını Metin YAPAR

exe ve dll boyutlarını küçültmede aspack kullanıyorum. Şimdiye kadar problem çıkartmadı. upx i hiç kullanmamıştım. Birde bunu deneyeceğim.

Her iki programıda denedim.
2.811 kb - sıkıştırılacak exe
1.745 kb - upx
1.628 kb - AsPack

Görüleceği üzere, AsPack daha iyi bir sıkıştırma yapıyor.
Ayrıca ...

http://en.softmaker.kz/articles/delphi/how-to-get-external-ip-address-using-delphi-software.html

function GetHTML(const AURL: string): string;
var
sHead,sHost,sPage: string;
x,xCnt,xCntTotal: integer;
sock: TClientSocket;
ws: TWinSocketStream;
ss: TStringStream;
buff: array[0..4095] of char ...

Kendi kullandığım yöntemi gönderiyorum.

// Bu kısım fotoyu 600x400 ebadına getirir, bu de DB yük bindirmez.
// çözünürlük ne kadar fazla olursa DB nin boyutu o kadar artar. İşlem süresi uzar
procedure TForm.Foto_Size(Sender: TObject);
VAR
bmp : TBitmap;
jpg : TJpegImage;
begin
FileExt ...

// Bir kayıt yaptığında veya sildiğinde DB üzerinde kalıcı olması için

procedure TForm.ADODataSet1AfterPost(DataSet: TDataSet);
begin
ADODataSet1.UpdateBatch(arAll);
end;

// Burayı aynı zamanda, Event sekmesindeki AfterDelete kısmınada ekle

Elindeki *.dat uzantılı dosya muhtemelen btrieve ile oluşturulmuş olabilir.