Delphi Forum

Deneme şansın oldumu ben dediğini denedim bir türlü başaramadım forma uniti ekleyip fonksiyonları kullanayim dedim ama onuda anlayamadım.

ekteki dosyayı inceleme fırsatın varsa hatta deneye bilirsen sevinirim.

Arkadaşlar elimde bir ip kamera var ocx import ettim ve bir unit oluşturdum.

aşağıda size uniti dosya olarak ekledim ama fonksiyonları nasıl kullanacağımı ve görüntüyü nasıl
alacağımı anlayamadım.

Teşekkür ederim.

Araştırdım forumda pek fazla bahsedilmemiş bu konudan google de aradım orda da bir kaç şey buldum denedim ama hata verdi.
Bu kodu
Stok_Dataset'+'Edit2.text'+'.Text:=IntToStr(FaturaHr_Query.Fields[0].AsInteger);
Bu şekilde findcomponent ile denedim ama başarılı olamadım.
TDataSet(FindComponent ...

FaturaHr_Query.SQL.Clear;

FaturaHr_Query.SQL.ADD('select sum(faturahr.OZELALANTANIM_10) from fatura, faturahr where fatura.blkodu=faturahr.blftkodu and silindi=0 and FATURAHR.blstkodu='''+dblkod+''' and (ozelalantanim_12=2 or ozelalantanim_12=4 or ozelalantanim_12=5)');
FaturaHr_Query.Active ...

SimaWB ewt söylediğin şekilde küçük bir örnek yaptığımda türkçe karakter şifreleyip çözdüğümde sorun yok ama sorun şu ki EncdDecd.pas bu dosyada da yine web servisine veri gönderip geri çektiğimde gelen mesajlar türkçe karakterleri bozuk bunu web servisini yazan firma şöyle açıklıyor sorun decode ...

Base 64 için Kullandığım unit.
Unit Base64;

Interface

Uses SysUtils, Classes;

Const
Base64Str: String = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';

En64Table: Array[0..63] Of Char = (#65, #66, #67, #68, #69,
#70, #71, #72, #73, #74, #75, #76, #77, #78, #79,
#80, #81 ...

Rst := Base64Decode(Rst, CP_UTF8);

Bu şekilde [DCC Error] Unit1.pas(69): E2034 Too many actual parameters Bu hatayı alıyorum.
Ama bu şekilde çalışan bir uygulama var uygulamaının bu şekilde çalıştığını biliyorum.

Rst := Base64Decode(Rst);
Bu şekilde çalışınca sorunsuz çalışıyor ama Geri ...

Yardımın için saol ama anlayamadım nasıl kullanacağımı web servisini veren firma utf8 olarak ayarlayın diyor
başkada bişe demiyor.

Yani takıldım kaldım çıkamıyorum işin içinden herşey yolunda ama tek sorun türkçe karakter sıkıntısı

Var
Rst : string;
Begin
Rst := IdHTTP1.Get(LinkGEt.Text);
Rst := Base64Decode(Rst, CP_UTF8);
sRichEdit1.Lines.Text := Rst;
end;


Arkadaşlar internette çok araştırma yaptım ama bir sonuca ulaşamadım

yukardaki kod bende xe2 ve xe versiyon delpide aşağıdaki hatayı veriyor.

[DCC Error] Unit1 ...

Hiç dikkat etmemiştim haklıymışsınız EncdDecd.pas forma ekledim ve gayet güzel çalıştı türkçe karakter sorunuda olmadı.

Teşekkür edim yardımın için.

Arkadaşlar base64 yapısı kullanarak şifreleme ve çözme işlemi gerçekleştiriyorum.

yalnız türkçe karakterlerde sorun yaşıyorum.
Bu kod ile şifreliyorum.
Memo1.Lines.Add(Base64EnCodeStr(Edit1.Text));


Bu kod ile şifreyi çözüyorum.
Memo1.Lines.Add(Base64DeCodeStr(Edit2.Text));

Edit 1 de şımark ...

Arkadaşlar XML Mapper aracı ile xtr dosyasını oluştururken node properties kısmında ilgili alanın nested değerini true yapmam lazımmış
yaptım ok güzel ama test Trasnformations dan dataset alanları kontrol ettiğimde sadece tek bir değer getiriyor xml dosyamda dataset alanlar için bir kaç değer var ...

Arkadaşlar XML okuma yapıyorum sorun yok dbgride aktarıyorum ordada bir sorun yok .

Sorunum şu ki NEsted alan var bunu da detail başka bir gride aktaracam ama bir türlü beceremedim.

Yıl olarak bir nested alanım var
http://www.delphiturkiye.com/forum/viewtopic.php?f=19&t=20424&start=15
bu ...

WebService dikkatimi çekti biraz ama yinede çok kararsızım.
.Neti inceledim biraz ama sanki delphi iyi bir çözüm gibi gözükmedi gözüme yani delphi ile .net oluşturmak.

Bir client programı yaratıp server üzerindeki firebird datasına kullanıcı adı ve şifre sistemi ile bağlansa diye düşünüyorum ama ...

Arkadaşlar hepinize ilginiz için teşekkürler:
Zamanım var zaman sorunum şimdilik yok:

Net öneren arkadaşlarım .NET mimarisini tanıyorum ama sonuç olarak öğrenmek ne kadar zamanımı alacak
ve ne kadar profosyonel bir sistem kurabilirim tam olarak bilmiyorum.
SERVER windows 2003 kullanıyorlar bu ...